如何根据列出的 df 的值将标题添加到绘图列表中？

Question

Here's that illustrates the obstacle I'm facing.

library(tidyverse)

co2_list <- CO2 %>%
  group_split(Type)


reprex_fun <- function(x){
  x %>%
    ggplot(aes(conc, uptake)) +
    geom_point() +
    facet_wrap(~Plant, ncol = 2)
}

lapply(co2_list, reprex_fun)

Since the listed dataframes are based on the Type value, How can I add the corresponding title with the type, to the plots I just made?

Answer 1

You can also try labs , similar to ggtitle :

#Data
data("CO2")
#Plot
co2_list <- CO2 %>%
  group_split(Type)

#Function

reprex_fun <- function(x){
  x %>%
    ggplot(aes(conc, uptake)) +
    geom_point() +
    labs(title = unique(x$Type))+
    facet_wrap(~Plant, ncol = 2)
}

#Plots

lapply(co2_list, reprex_fun)