Составьте несколько гистограмм с помощью purrr :: map и ggplot2

Question

Как мне построить гистограммы для этих четырех случайных величин. Это работает, но кажется излишне длинным.

#libraries
library(tidyverse)
library(purrr)
# Standard deviation question
std_devs %>% 
map(rnorm, n=1000, mean=75) %>% 
do.call('rbind', .) %>% 
t() %>% 
as.data.frame() %>% 
gather() %>% 
ggplot(., aes(x=value))+geom_histogram()+facet_wrap(~key)

Answer 1

purrr загружается tidyverse, поэтому вы можете пропустить эту строку. map_df делает все остальное гораздо более сжатым.

library(tidyverse)

# Standard deviation question
set.seed(10)
std_devs <- 1:4
std_devs %>% 
  map_df(~data_frame(key = ., value = rnorm(n=1000, mean=75, sd = .))) %>% 
    ggplot(aes(x=value))+geom_histogram()+facet_wrap(~key)