r - 为使用 map() 创建的 ggplots 添加标题

Question

使用 map 函数为我在下面创建的每个 ggplot 添加标题的最简单方法是什么？我希望标题反射(reflect)每个数据框的名称 - 即 4、6、8(圆柱体)。

谢谢 :)

mtcars_split <- 
  mtcars %>%
  split(mtcars$cyl)

plots <-
  mtcars_split %>%
  map(~ ggplot(data=.,mapping = aes(y=mpg,x=wt)) + 
        geom_jitter() 
  # + ggtitle(....))

plots

Answer 1

使用 map2与 names .

plots <- map2(
  mtcars_split,
  names(mtcars_split),
  ~ggplot(data = .x, mapping = aes(y = mpg, x = wt)) + 
    geom_jitter() +
    ggtitle(.y)
)

编辑:alistaire 指出这与 imap 相同

plots <- imap(
  mtcars_split,
  ~ggplot(data = .x, mapping = aes(y = mpg, x = wt)) + 
    geom_jitter() +
    ggtitle(.y)
)