想要將每個data.frame串列分別保存為Excel Workbookwithwrite_xlsx函式。能夠將每個data.frame串列分別保存為 .RData但不能保存為Excel Workbook. 有什么想法嗎。
library(tidyverse)
library(writexl)
df1 <- data.frame(X = 1:3)
df2 <- data.frame(X = 5:6)
ls1 <-
list(df1, df2) %>%
set_names(c("df1", "df2"))
ls1
#> $df1
#> X
#> 1 1
#> 2 2
#> 3 3
#>
#> $df2
#> X
#> 1 5
#> 2 6
map(.x = names(ls1), .f = function(x1){
assign(x = x1, ls1[[x1]])
save(list = x1, file = paste0(x1, ".RData"))
})
#> [[1]]
#> NULL
#>
#> [[2]]
#> NULL
map(.x = names(ls1), .f = function(x1){
assign(x = x1, ls1[[x1]])
write_xlsx(x = x1, path = paste0(x1, ".xlsx"))
})
#> Error in write_xlsx(x = x1, path = paste0(x1, ".xlsx")): Argument x must be a data frame or list of data frames
已編輯
以下使用包中的函式的R代碼可以作業并生成帶有多張紙的單張。write.xlsxopenxlsx RWorkbook
write.xlsx(x = ls1, file = "ls1.xlsx")
但是，我要求單獨保存每個 data.frame，Workbook并嘗試了包中產生錯誤輸出的write.xlsx函式：openxlsx R
map(.x = names(ls1), .f = function(x1){
assign(x = x1, ls1[[x1]])
write.xlsx(x = x1, path = paste0(x1, ".xlsx"))
})
uj5u.com熱心網友回復：
做：
library(openxlsx)
lapply(1:length(ls1), function(x) write.xlsx(ls1[[x]], file = paste0(names(ls1)[x], '.xlsx')))
相同的代碼與以下代碼完全相同map：
library(purrr)
map(.x = 1:length(ls1),
.f = function(x) write.xlsx(ls1[[x]], file = paste0(names(ls1)[x], '.xlsx')))
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/433512.html