宽转长

library(tidyr)
#转长
data <- read.delim("test1.txt")
res1 <- gather(data, AA, value, 2:dim(data)[2], na.rm = T) #宽转长
res <- res1[c(2,1,3)] #调换一列和二列的位置
colnames(res) <- c("colname", "rowname", "value") #随意为三列命名
write.csv(res, "data_long.csv", quote = F)
运行结果展示
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容