我按照这些说明进行操作,然后按照这些说明进行操作:
# Write the first data set in a new workbook
write.xlsx(USArrests, file="myworkbook.xlsx",
sheetName="USA-ARRESTS", append=FALSE)
# Add a second data set in a new worksheet
write.xlsx(mtcars, file="myworkbook.xlsx", sheetName="MTCARS",
append=TRUE)
# Add a third data set
write.xlsx(Titanic, file="myworkbook.xlsx", sheetName="TITANIC",
append=TRUE)
Run Code Online (Sandbox Code Playgroud)
这是我最后所做的:
openxlsx::write.xlsx(Cost_Changes_0021_Table,'C:/Users/santi/Documents/Cost Changes xlsx/0021_Cost_Changes.xlsx', sheetName ='Dept 0021 Prod Level', row.names= FALSE, append = FALSE)
openxlsx::write.xlsx(Cost_Changes_0021_Vendor_Lvl_Table,'C:/Users/santi/Documents/Cost Changes xlsx/0021_Cost_Changes.xlsx', sheetName ='Dept 0021 Vendor Level', append= TRUE, row.names= FALSE)
Run Code Online (Sandbox Code Playgroud)
我不明白为什么运行该脚本后没有得到多张纸。我的代码第二行中发生的情况会覆盖第一张工作表,然后当我真正需要工作簿中的两个选项卡时我只看到一个选项卡 C:/Users/santi/Documents/Cost Changes xlsx/0021_Cost_Changes.xlsx
当谈到 openxlsx 时,这个小插图是你的朋友:https://cran.r-project.org/web/packages/openxlsx/vignettes/Introduction.html
尝试这样的事情(基于小插图)
library(openxlsx)
#create a named list of your dataframes. The list names will be the worksheet names.
xl_lst <- list('df1_name' = iris, 'df2_name' = mtcars)
write.xlsx(xl_lst, file = "xl_with_2_worksheets.xlsx")
Run Code Online (Sandbox Code Playgroud)