如何按矩阵内的行堆叠列表(数据帧或向量)的元素，包括 R 中矩阵内的列的名称

发布于04月21日

我的目标是将多个数据框导出到单个Excel工作表中.

我想要一个通用的代码，可以与任何名单.

Outline of the data个

# df1
  a
1 1
2 1

# df2
  b c
1 3 4

# vec
[1] "string"

Desired output个

     [,1]     [,2]
[1,] "a"      NA  
[2,] "1"      NA  
[3,] "1"      NA  
[4,] NA       NA  
[5,] "b"      "c" 
[6,] "3"      "4" 
[7,] NA       NA  
[8,] "string" NA

Data个

df1 <- data.frame(a = c(1, 1))
df2 <- data.frame(b = 3, c = 4)
vec <- "string"
l   <- list(df1, df2, vec)

推荐答案

正如您所说，您需要导出到单个Excel工作表.您可以使用带有简单循环的{openxlsx}来计算列表中每个元素在Excel工作表中的起始行.

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "sheet1")
sr <- 1 # startRow

for(x in l) {
  writeData(wb, "sheet1", x, startRow = sr)
  sr <- sr + ifelse(is.data.frame(x), nrow(x), length(x)) + 2L
}

saveWorkbook(wb, "test.xlsx", overwrite = TRUE)