下面为原始数据（original.RData），上面为分类汇总的频次数据(aggregate.RData)

从原始数据，转为汇总数据，我使用以下代码，成功完成：

> load("original.RData")

> head(original)

满意度 地区

1 满意 东部

2 满意 东部

3 满意 东部

4 满意 东部

5 满意 东部

6 满意 东部

> x <- table(original)

> x

地区

满意度 东部 西部 中部

不满意34 65 82

满意 126 35158

> write.csv(x, file = "x.csv")

> y <- read.csv("x.csv",header = T)

> y

X 东部 西部 中部

1 不满意 3465 82

2 满意 126 35158

> rownames(y)=y[,1]

> y

X 东部 西部 中部

不满意 不满意34 65 82

满意 满意12635158

> y=y[,-1]

> y

东部 西部 中部

不满意 3465 82

满意 12635158

> save(y, file="y.RData")

=====

这里的y就是我想要得到的汇总数据，实为添加了行名与列名的矩阵。

但，怎样将汇总好的数据转为原始数据呢？求教。谢谢。

数据见附件。