从R导出到excel的表的名称

如何解决从R导出到excel的表的名称

在使用以下代码导出excel之前，我绑定了不同的数据帧列表：

l_listOfDF <- mget(ls(pattern="listofdf"))

使用以下命令可以正常导出

mywb <- createWorkbook()

for (sheetName in names(listofdfs)){
  addWorksheet(mywb,sheetName )
}

# get all lists of tables in a single list
l_listOfDF <- mget(ls(pattern="listofdf"))

# initiate the index of the row where you will want to start writing (one per sheet)
startR <- rep(1,length(listofdfs)) ; names(startR) <- names(listofdfs)

# loop over the lists of tables using index and then over the elements / sheets using their names
for(N_myListOfDF in seq(l_listOfDF)){
  
  for(pageName in names(l_listOfDF[[N_myListOfDF]])){
    
    label_2 <- paste0("Table ",N_myListOfDF,". Number of ",pageName," users between 2010-2019")
    
    # write the name/number of your table in the correct sheet,at the correct row
    writeData(mywb,sheet=pageName,startRow=startR[pageName],label_2)
    
    # write your data in the correct sheet at the correct row (the one after the name)
    writeData(mywb,startRow=startR[pageName]+1,l_listOfDF[[N_myListOfDF]][[pageName]])
    
    # update the row number (the + 3 is to leave space for name of table,headers and blank row
    startR[pageName] <- startR[pageName]+nrow(l_listOfDF[[N_myListOfDF]][[pageName]]) + 3
  }
}

但是我无法分配要导出正确标题的每个表。

在标签中：

label_2 <- paste0("Table "," users between 2010-2019")

我想添加以下内容：

x <- c("","","females","males")

并获取：

label_2 <- paste0("Table ",x," users between 2010-2019")

为了使每个excel工作表的第一个表具有以下标题：

表1. 2010-2019年之间的（pageName）用户数

对于每个Excel工作表的第二个表：

表2. 2010-2019年之间的（pageName）用户数

第三个：

表3. 2010-2019年之间 女性 （pageName）用户的数量

第四：

表4. 2010-2019年之间的 男性 （pageName）用户数量

但是仅将向量x添加到label_2中无法正常工作。 我在每张纸上都增加了表格。

有什么有用的想法吗？谢谢！

以下是可重现的示例：

listofdfs <- list(data.frame("y"=c(2009,2010,2011),"b"=c(35,30,20)),data.frame("y"=c(2009,"b"=c(6,21,40)),"a"=c(13,5),"b"=c(40,18,25)),"a"=c(8,36,7),"b"=c(32,9,17))  )

listofdfs_2 <- list(data.frame("y"=c(2009,"b"=c(14,8)),"b"=c(36,27,9)),"a"=c(9,15,58),"b"=c(7,11,"a"=c(48,3,67),"b"=c(2,28,37))  )

mywb <- createWorkbook()

for (sheetName in names(listofdfs)){
  addWorksheet(mywb,length(listofdfs)) ; names(startR) <- names(listofdfs)

# loop over the lists of tables using index and then over the elements / sheets using their names
for(N_myListOfDF in seq(l_listOfDF)){

  for(pageName in names(l_listOfDF[[N_myListOfDF]])){

    label_2 <- paste0("Table ",c("","males")," users between 2010-2019")

    # write the name/number of your table in the correct sheet,label_2)

    # write your data in the correct sheet at the correct row (the one after the name)
    writeData(mywb,l_listOfDF[[N_myListOfDF]][[pageName]])

    # update the row number (the + 3 is to leave space for name of table,headers and blank row
    startR[pageName] <- startR[pageName]+nrow(l_listOfDF[[N_myListOfDF]][[pageName]]) + 3
  }
}

# save your workbook in a file
saveWorkbook(mywb,"diroutput\\pippo.xlsx")

解决方法

我会尝试用您的标签创建一个简单的矢量并在其他地方定义，例如：

library(fmtr)

# Set up data
df <- data.frame(a = c('upperGI','UpperGI','UpperGI'),b = c('C22.0 - Liver cell carcinoma','C16.0 - Cardia','C15.3 - Upper third of oesophagus','C25.9 - Pancreas,unspecified','C23.0 - Livery,pancreas,and biliary surgery'))

df$c <- as.numeric(substr(df$b,2,5))

# Define format
fmt <- value(condition(x > 22 && x <= 25,"HPB"),condition(TRUE,"upperGI"))

# Apply format
df$a <- fapply(df$b,fmt)
df

#        a                                             b    c
#1 upperGI                  C22.0 - Liver cell carcinoma 22.0
#2 upperGI                                C16.0 - Cardia 16.0
#3 upperGI             C15.3 - Upper third of oesophagus 15.3
#4 upperGI                 C25.9 - Pancreas,unspecified 25.9
#5     HPB C23.0 - Livery,and biliary surgery 23.0

然后，要获取标题标签，请使用label_vec <- c("","","females","males") 中的索引以获取正确的文本标签：

N_myListOfDF

上面的示例只有两个表，并且数据帧的列表没有名称，因此我做了一些小的修改以得到可重现的示例（如下）。另外，示例中只有2个表，因此我使用test1和test2代替了空字符串来对其进行测试。

可复制的示例：

label_2 <- paste0("Table ",N_myListOfDF,". Number of ",label_vec[N_myListOfDF]," ",pageName," users between 2010-2019")