R中的绘图用于很多xls文件

Question

我有一个文件夹，其中包含70个文件（格式为.xls）。我想在R中编写一个脚本，它会从每个.xls文件中创建绘图，并将其保存到单独的.jpg（或.png）文件中。可能吗？给我一个提示？

Answer 1

这样的事情应该有效：

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()
}