R语言变换excel表格格式

#使用reshape2包
library（reshape2）
然后melt（）函数和dcast()一起使用
先用melt（）对表格进行融合，再用dcast()对表格进行重建
原表格：

转化后

代码：
data5 <- melt(data2,id=c(“经济类群”,“总样本”))#除了变化的数值的所有列名
跑完之后

data6 <- dcast(data5,总样本+variable~经济类群)
#_{左边为不变，}右边为变化的

#如果出现问题Q：

#Aggregation function missing: defaulting to length（则说明有重复值，变换时出现问题，只需要将dcast代码改变为）
data6 <- dcast(data5,样本名+variable~经济类群,fun.aggregate = toString)
#变为字符串就好了