Показать несколько гистограмм, используя facet_wrap

Question

Пример данных

df <- data.frame(id = rep(1:6, each = 50), x = rnorm(50*6, mean = 10, sd = 5), 
                                       y = rnorm(50*6, mean = 20, sd = 10), 
                                       z = rnorm(50*6, mean = 30, sd = 15))

ggplot(df, aes(x)) + geom_histogram() + facet_wrap(~id)

Как мне показать x, y, z на одном графике для каждого идентификатора разными цветами

Answer 1

Лучше сначала изменить форму данных с широкого на длинный, а затем добавить fill эстетику к карте what (т.е. x, y, z) в различные цвета заливки:

library(tidyverse)
df %>%
    gather(what, val, -id) %>%
    ggplot(aes(val, fill = what)) + geom_histogram() + facet_wrap(~id)