【发布时间】:2015-04-02 12:05:23
【问题描述】:
我有一个文件夹,其中包含 70 个文件(.xls 格式)。我想在 R 中编写一个脚本,该脚本从每个 .xls 文件中进行绘图并将其保存到单独的 .jpg(或 .png)文件中。是否可以?给我一个提示?
【问题讨论】:
我有一个文件夹,其中包含 70 个文件(.xls 格式)。我想在 R 中编写一个脚本,该脚本从每个 .xls 文件中进行绘图并将其保存到单独的 .jpg(或 .png)文件中。是否可以?给我一个提示?
【问题讨论】:
这样的事情应该可以工作:
library(readxl)
fn <- list.files("yourfolder", pattern = "xlsx?$", full.names = T)
dfs <- lapply(fn, read_excel)
for (x in 1:length(dfs)) {
png(paste0(fn[x], ".png"))
with(dfs[[x]], {
plot(...)
})
dev.off()
}
【讨论】:
for 循环可以替换为lapply吗?
install.packages("devtools"); devtools::install_github("hadley/readxl")。
for 循环一般应该避免。