如何在 r 中连续生成一个 dataframe 的多重图？

Question

我是 R 的新手，我试图简化我的代码，因为我经常从一个 dataframe 创建不同的图。我已经尝试过循环，但还没有取得任何成就。 需要的图书馆：

library(dplyr)
library(ggplot2)
library(lubridate)

我有一个数据集，在一段时间内分几批进行不同的测量，与此类似：

x<-rbind(as.data.frame(cbind(batch = "A", datetime = format(seq(as.POSIXct("2023-01-01 06:00:00", tz="UTC"), by="min", length.out=50), "%Y/%m/%d %H:%M:%OS"),
                            rbind(
                                  as.data.frame(cbind(measurement = "ref_Flow",values = rnorm(50, mean = 1.6, sd = 0.005e+01))),
                                  as.data.frame(cbind( measurement = "Flow" ,values = rnorm(50, mean = 1.6, sd = 0.008))),
                                  as.data.frame(cbind(measurement = "ref_Temp",values = rnorm(50, mean = 23, sd = 0.5e+01))),
                                  as.data.frame(cbind(measurement = "Temp",values = rnorm(50, mean = 23, sd = 1))),
                                  as.data.frame(cbind(measurement = "ref_Hum",values = rnorm(50, mean = 50, sd = 1e+01))),
                                  as.data.frame(cbind(measurement = "Hum", values = rnorm(50, mean = 50, sd = 5)))
                                   ))),
         as.data.frame(cbind(batch = "B", datetime = format(seq(as.POSIXct("2023-01-05 08:43:00", tz="UTC"), by="min", length.out=50), "%Y/%m/%d %H:%M:%OS"),
                             rbind(
                               as.data.frame(cbind(measurement = "ref_Flow",values = rnorm(50, mean = 0.16, sd = 0.005e+01))),
                               as.data.frame(cbind( measurement = "Flow" ,values = rnorm(50, mean = 0.16, sd = 0.01))),
                               as.data.frame(cbind(measurement = "ref_Temp",values = rnorm(50, mean = 23, sd = 0.5e+01))),
                               as.data.frame(cbind(measurement = "Temp",values = rnorm(50, mean = 23, sd = 0.8))),
                               as.data.frame(cbind(measurement = "ref_Hum",values = rnorm(50, mean = 50, sd = 1e+01))),
                               as.data.frame(cbind(measurement = "Hum", values = rnorm(50, mean = 50, sd = 2)))
                             ))),
         as.data.frame(cbind(batch = "C", datetime = format(seq(as.POSIXct("2023-01-20 07:33:00", tz="UTC"), by="min", length.out=50), "%Y/%m/%d %H:%M:%OS"),
                             rbind(
                               as.data.frame(cbind(measurement = "ref_Flow",values = rnorm(50, mean = 0.16, sd = 0.005e+01))),
                               as.data.frame(cbind( measurement = "Flow" ,values = rnorm(50, mean = 0.16, sd = 0.002))),
                               as.data.frame(cbind(measurement = "ref_Temp",values = rnorm(50, mean = 23, sd = 0.5e+01))),
                               as.data.frame(cbind(measurement = "Temp",values = rnorm(50, mean = 23, sd = 1.3))),
                               as.data.frame(cbind(measurement = "ref_Hum",values = rnorm(50, mean = 50, sd = 1e+01))),
                               as.data.frame(cbind(measurement = "Hum", values = rnorm(50, mean = 50, sd = 10)))
                             ))))
x$values<-as.numeric(x$values)
x$datetime<-as.POSIXct(x$datetime)

我想每批 plot 次测量和 ref_measurements。 我会为每个批次和测量执行此操作：

ggplot(subset(x, batch == "A") %>% 
         filter(measurement %in% c("Flow", "ref_Flow")))+
  aes(x = datetime, y = values, color = measurement)+
  geom_line()+
  labs(title = "Batch: A",
       subtitle = "Measurement: Flow")

我怎样才能集成一个循环（或类似的）来不重复代码 x 次？

Answer 1

使用 for 循环，将绘图存储在列表中

pl <- list()
for(i in unique(x$batch)){
pl[[i]] <- ggplot(subset(x, batch == i) %>% 
               filter(measurement %in% c("Flow", "ref_Flow"))) +
             aes(x = datetime, y = values, color = measurement) +
             geom_line() +
             labs(title = paste("Batch:", i), subtitle = "Measurement: Flow")}

Plot 或以后批量保存

pl$A

<<plot>>

pdf("file.pdf")

pl$A

dev.off()