下面为原始数据(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就是我想要得到的汇总数据,实为添加了行名与列名的矩阵。
但,怎样将汇总好的数据转为原始数据呢?求教。谢谢。
数据见附件。


雷达卡


京公网安备 11010802022788号







