希望将矩阵的行名和列名都导出，并在第一行和第一列的交叉处加上一个名称‘output’。
代码如下：
#创建矩阵
rownames = c("B1", "B2", "B3")
colnames = c("A1", "A2")
m <- matrix(c(2,3,5,6,3,4), nrow = 3, byrow = TRUE, dimnames = list(rownames, colnames))
#转化为数据框并整理
d <- as.data.frame(m)
d$output <- rownames(m)
d_order <- c('output','A1','A2')
d_trans <- d[d_order]
#导出为csv
write.csv(d_trans,"C:/Users/Administrator/Desktop/test.csv",row.names=FALSE)
版权声明：本文为weixin_44597588原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。