ggplot 循环读取 CSV 文件

大佬教程收集整理的这篇文章主要介绍了ggplot 循环读取 CSV 文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决ggplot 循环读取 CSV 文件？

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

我会很感激使用 ggplot 的答案，但否则我会以相同的情节结束。

这是我的代码：

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

解决方法

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

大佬总结

以上是大佬教程为你收集整理的ggplot 循环读取 CSV 文件全部内容，希望文章能够帮你解决ggplot 循环读取 CSV 文件所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。