有没有办法在for循环中使用ggplot生成pdf并将其保存在R中？ [关闭]

Question

我有这个数据集：

    structure(list(Agency.Station.ID = c("MI270N003.6D", "MI270N004.7D", 
"MI270N005.7D", "MI270N007.3D", "MI270N008.5D", "MI270N003.6D", 
"MI270N004.7D", "MI270N005.7D", "MI270N007.3D", "MI270N008.5D"
), date_time = structure(c(1427846400, 1427846400, 1427846400, 
1427846400, 1427846400, 1427846700, 1427846700, 1427846700, 1427846700, 
1427846700), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    Date = structure(c(16526, 16526, 16526, 16526, 16526, 16526, 
    16526, 16526, 16526, 16526), class = "Date"), Time = c("00:00:00", 
    "00:00:00", "00:00:00", "00:00:00", "00:00:00", "00:05:00", 
    "00:05:00", "00:05:00", "00:05:00", "00:05:00"), Speed = c(59, 
    34, 46, 61, 46, 58, 39, 51, 36, 52), Total.Volume = c(7.5, 
    6, 6, 11.6, 7.2, 10, 8, 8, 7.2, 7.2), Ocupancy = c(0.8, 0.4, 
    0.6, 1.1, 1, 0.8, 0.7, 1.1, 0.8, 0.8), S.D = c(28.9, 17.8, 
    19.9, 24.4, 27.8, 23.6, 15.7, 15.3, 13.5, 26.6), Precipitation = c(0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(NA, 10L), class = "data.frame")

我希望每个 Agency.Station.ID 都有一个 pdf。在每个 pdf 中都有一个日期页面，在每个页面中，我想要一个在 x 轴上有时间和在 y 轴上有（速度和降水）的图。

Answer 1

这是一个快速而肮脏的解决方案：

library(tidyverse)
# first you've to work with your data, choosing the helpful columns
dat1 <- dat[,c(1,3,5,9)]

# then put them in long format
dat1 <- dat1 %>% gather(variable, value,-c('Date','Agency.Station.ID'))

# now the loop that creates the plots.pdf. Remember to add your path
for (i in unique(dat1$Agency.Station.ID)){
                                          dat1 <- dat1[dat1$Agency.Station.ID==i,]
                                          ggplot(dat1,
                                                 aes(x = Date,
                                                     y = value,
                                                     group = variable,
                                                     color = variable)) + 
                                          geom_line() + geom_point()
                                          ggsave(paste0('C:\\addyourpath\\',i,'.pdf'))
                                         }