tidyverse: несколько графиков для каждого уровня фактора или каждого значения числовой переменной

Question

Я хочу сделать несколько графиков для каждого уровня фактора или каждого значения числовой переменной (здесь каждое значение vs переменной). Я не хочу использовать facet_grid или facet_wrap. Интересно, есть ли более компактный способ выполнить задачу? В моих реальных данных у меня есть много уровней фактора.

library(tidyverse)

mtcars %>% 
  dplyr::filter(vs == 0) %>% 
  ggplot(mapping = aes(x = wt, y = mpg)) +
  geom_point()


mtcars %>% 
  dplyr::filter(vs == 1) %>% 
  ggplot(mapping = aes(x = wt, y = mpg)) +
  geom_point()

Answer 1

Используйте group_by, nest, purrr::pwalk для обхода вложенного списка фреймов данных, передавая переменную группировки и отфильтрованный фрейм данных в пользовательскую функцию внутри вызова pwalk.

plot_vs <- function(vs, data){ 
g1<-
  data %>% 
  ggplot(mapping = aes(x = wt, y = mpg)) +
  geom_point()+
  ggtitle(!!vs)
print(g1)
}


mtcars %>% 
    group_by(vs) %>% 
    nest() %>% 
    purrr::pwalk(plot_vs)

Answer 2

Может, так и делаешь?

plot_list <- map(.x = unique(mtcars$vs), ~ mtcars %>% 
              dplyr::filter(vs == .x) %>% 
              ggplot(mapping = aes(x = wt, y = mpg)) +
              geom_point() +
              ggtitle(.x))

plot_list[[1]]