我有一个像这样的循环:
library(writexl)
file_output="C:/test/test.xlsx"
for(i in 1:2){
df<-iris[i,]
write_xlsx(list(i=df),file_output)
}
我想将每个迭代存储在一个名为i的值的单独表中(或者在我的实际程序中:某个变量的值)。这是可能的write_xlsx,或者通常,是否可以使write_xlsx(或其他一些函数)解释:
“list(i = df)”为“list(1 = df)”和“list(2 = df)”
您必须命名列表元素,而不是i = df
。对于你的循环,这意味着:
file_output = "C:/test/test.xlsx"
for(i in 1:2){
df <- iris[i,]
out <- list(df)
names(out) <- i
write_xlsx(out, file_output)
}
但是,这将导致每个data.frame一个文件,因为write_xlsx
不会附加到现有文件(至少据我所知)。如果您只想拥有一个包含各种data.frames工作表的文件,则必须调整代码:
file_output = "C:/test/test.xlsx"
vars <- 1:2
out <- vector(mode = "list", length = length(vars))
for(i in vars){ # if you use variable names in vars, use seq_along(vars) instead of vars
out[[i]] <- iris[i,]
}
names(out) <- vars
write_xlsx(out, file_output)
由于我没有看到在这里使用循环的任何优点,我甚至建议使用map
包或purrr
中的lapply
:
file_output = "C:/test/test.xlsx"
vars <- 1:2
out <- map(vars, ~ iris[.x,])
names(out) <- vars
write_xlsx(out, file_output)
你可能不需要for循环。
只需在names()
对象list
上使用as.character()
来命名工作表。
l <- lapply(1:2, function(i) iris[i, ]) #creates separated df for each row
names(l) <- as.character(1:2) # sets the names of each element in the list
# these will be the sheets name
file="path_to_file.xlsx" # path to file name
library(writexl)
write_xlsx(l, file)