使用 purrr:map 和 ggplot

Question

我没有太多使用purrr包的经验。 我有一个名为data的数据框，如下所示：

Country Year Incidence
USA     1995 20000
USA     2000 23000
UK      1995 16000
UK      2000 22000

这是保密的，我不能分享，所以这只是一个小摘录。 我需要绘制一个图，其中年份在 x 轴上，发病率在 y 轴上，但是，我需要为每个国家/地区绘制单独的图。 不幸的是，分面不是一种选择，我需要将每个图保存为一个单独的文件。

我知道如何拆分数据ggplot ，但是，我不知道如何在map函数中使用ggplot 。 这是我尝试使用的代码，但无法正常工作。

data %>%
  group_by(Country) %>%
  group_split() %>%
  map(ggplot, aes(x = Year, y = Incidence)+
        geom_line()+
        geom_point())

编写此代码的正确方法是什么？

Answer 1

您可以使用 ：

library(tidyverse)

list_plot <- data %>%
               group_split(Country) %>%
               map(~ggplot(., aes(x = Year, y = Incidence) ) +
                       geom_line()+ geom_point())

您可以使用list_plot[[1]] 、 list_plot[[2]]等访问每个Country list_plot中的图列表。

你有没有考虑过在你的情节中使用facet？