在R中绘制多个图[关闭]

Question

所以我想同时为每个地方绘制多个图，y 轴上的访问次数和 x 轴上的天数，但我不确定是否有函数可以做到这一点？

所以我可以通过对地点 A 进行子集化来为地点 A 绘制图：

placeA <- subset(df$place=="A")

ggplot(data=placeA, aes(x=Day, y=Num_OfVisits, group=1)) +
  geom_line(color="#00AFBB", size=0.5) +
  theme(axis.text.x=element_text(angle=90,hjust=1, size=5))

但是现在我想为其他地方生成一个图，我希望我可以一次完成所有这些，因为我的数据集上有大约 1000 个地方，并且子集需要一些时间。任何帮助将不胜感激。谢谢！

Answer 1

您可以编写一个函数，将数据框和Place 作为输入，然后遍历Place 列中的所有值以创建相应的图。

library(tidyverse)

df <- data_frame(
  Place = c(rep(c("A", "B", "C"), each = 3)),
  Num_of_Visits = seq(1:9),
  Day = rep(c("Sunday", "Monday", "Tuesday"), 3)
)

df <- df %>% 
  mutate(Day = factor(Day, levels = c("Sunday", "Monday", "Tuesday")))

my_plot <- function(df, myvar) {      
  ggplot(data = df %>% filter(Place == myvar), 
         aes(x = Day, y = Num_of_Visits, group = 1)) +
    geom_line(color = "#00AFBB", size = 0.5) +
    theme(axis.text.x = element_text(angle = 90, vjust = 0.5))      
}

# test
my_plot(df, 'A')

循环通过Place var，创建绘图并将它们存储在使用purrr::map()的列表中

plot_list <- unique(df$Place) %>% 
  purrr::set_names() %>% 
  purrr::map( ~ my_plot(df, .x))
str(plot_list, max.level = 1)
#> List of 3
#>  $ A:List of 9
#>   ..- attr(*, "class")= chr [1:2] "gg" "ggplot"
#>  $ B:List of 9
#>   ..- attr(*, "class")= chr [1:2] "gg" "ggplot"
#>  $ C:List of 9
#>   ..- attr(*, "class")= chr [1:2] "gg" "ggplot"

使用purrr::walk()显示所有绘图

purrr::walk(plot_list, print)

使用purrr::iwalk()将所有绘图保存到PNG文件

purrr::iwalk(plot_list,
             ~ ggsave(plot = .x,
                      filename = paste0("Plot_", .y, ".png"),
                      type = 'cairo', width = 6, height = 6, dpi = 150)
)

如果需要，使用 cowplot::plot_grid() 将所有情节组合在一起

library(cowplot)
do.call(plot_grid, c(plot_list, 
                     align = "h",
                     axis = 'tb',
                     ncol = 3))

^{由reprex package (v0.2.1.9000) 于 2018 年 10 月 19 日创建}