ggplot循环读取CSV文件

Question

我有几个包含 3 列的 .csv 文件。我想绘制前 2 个图形。ggplot 制作了一些漂亮的图形，但我想自动化这项任务，因为有数百个文件。我已经从这个站点尝试了几种方法，但没有一个对我有用。我想用lapply 来做这件事，但我遇到的每一个例子都失败了。

我会很感激使用ggplot 的答案，但否则我最终会用 plot 做同样的事情。

这是我的代码：

Star2 <-read.table("lista2.txt",stringsAsFactors=FALSE)[,c(1)]

for (i in 1: length(Star2)){ 
   print(ggplot(read.csv(Star2[i]) ,
                aes(x = V1, y = V2, color = "red")) +
           geom_point(colour= "orange") +
           scale_y_reverse(limit = c(6.60,6.45), expand=c(0,0)) +
           ggtitle("CURVA DE FASE") + 
           geom_smooth (colour ="blue" ,span = 0.2) +
           xlab("Fase") + ylab("Mag"))


   ggsave(phase3, file=paste0("plot_", i,".png"), width = 14, height = 10, units = "cm")
}

Answer 1

你可以试试：

library(ggplot2)

filenames <- list.files('/folder/of/csv/files', pattern = '\\.csv$', full.names = TRUE)

lapply(filenames, function(x) {
  data <- read.table(x,stringsAsFactors = FALSE)
  ggplot(data, aes(x = V1, y = V2, color = "red")) +
    geom_point(colour= "orange") +
    scale_y_reverse(limit = c(6.60,6.45), expand=c(0,0)) +
    ggtitle("CURVA DE FASE") + 
    geom_smooth (colour ="blue" ,span = 0.2) +
    xlab("Fase") + ylab("Mag") -> phase3

  ggsave(phase3, file=paste0("plot_", tools::file_path_sans_ext(basename(x)),".png"), 
         width = 14, height = 10, units = "cm")
})