对于很多行或很多列数据合并成一行或一列数据，手动是非常麻烦的，尤其当行列数无穷大，根本无法手动处理，在这里价绍一种解决办法：运行R语言，对数据的快速合并。
这里一多列合并成一列为例（如果是多行，可以转置成多列，再合并成一列）
例如我的数据形式：
后面还有很多列，并且还有缺少和多余的情况，例如：
缺少：
多余：
不过无妨，把这个结果存储成csv文件，我这边叫"模型结果"
然后运行以下R代码：
library(reshape2)
data<-read.csv("模型结果.csv")
melted_df <- melt(data, id.vars = "ID", na.rm = TRUE)#对于缺少的情况，这里对NA值即空值的处理，多余的情况，在ID处多选一行就行了
write.csv(melted_df$value, file = "模型结果处理后.csv", row.names = FALSE)
就变成一列数据了：
