拆分后将大量数据帧导出到 csv

Question

我正在创建一个脚本，该脚本将根据“参与者 ID”列将数据帧分成组，并将这些数据帧导出为 csvs。现在，我正在使用一个只有 7 个参与者 ID 的数据框，但该脚本将用于具有数百个参与者的 csv。

首先，这是一个数据框列表：

participant_id <- c("1", "1", "1", "2", "2", "2", "3", "3", "3", "4", "4", "4")

text <- c("Message1","Message1","Message1",
 "Message2", "Message2", "Message2", 
 "Message3", "Message3", "Message3", 
 "Message4", "Message4", "Message4")

df <- data.frame(participant_id, text)

df_list <- split(df, df$participant_id)

然后我使用我编写的名为 clean_log 的函数清理列表中的每个数据帧（数据帧包含短信日志）：

df_list <- lapply(df_list, clean_log)

我想将此列表中的每个数据帧写入 csv，但数据帧需要先保存为对象。我试着给它们命名：

names <- c()

for (i in 1:length(df_list)) {
  names <- c(names, paste0("df", i))
}

names(df_list) <- names

然后我尝试在 for 循环中导出数据帧，但收到错误“get(names[i]) 中的错误：找不到对象‘df1’：

for (i in 1:length(names)) {
  write.csv(get(names[i]),
            paste0(path, names[i], ".csv"), row.names = FALSE)
}

我知道我可以简单地写

df1 <- df_list[1]
df2 <- df_list[2]
...

为每个数据框命名，但是当有数百个数据框要导出时，这将不起作用。有没有人遇到过这样的问题或有什么建议？

Answer 1

您不需要在这里使用get，通常使用get 是一种不好的做法。

您的对象df_list 是一个数据框列表。 write.csv 的第一个参数应该是您要保存的数据框。所以你可以把你的循环写成：

paths = paste0(path, names, ".csv")
for (i in seq_along(df_list)) {
  write.csv(df_list[[i]], paths[i], row.names = FALSE)
}

我取消了循环中的 paste0 调用，因为使用矢量化来创建文件路径更有效且更惯用。