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

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

> load("original.RData")

> head(original)

  满意度 地区

1   满意 东部

2   满意 东部

3   满意 东部

4   满意 东部

5   满意 东部

6   满意 东部

> x <- table(original)

> x

       地区

满意度   东部 西部 中部

  不满意  34   65   82

  满意   126   35  158

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

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

> y

      X 东部 西部 中部

1 不满意   34  65   82

2   满意 126   35  158

> rownames(y)=y[,1]

> y

           X 东部 西部 中部

不满意 不满意  34   65   82

满意     满意  126  35  158

> y=y[,-1]

> y

       东部 西部 中部

不满意   34  65   82

满意    126  35  158

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

=====

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

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

数据见附件。