включить график всех данных в каждом facet_wrap

Question

Фрейм данных (заимствовано из здесь ):

df.test <- 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))

Участок:

library(ggplot2)
ggplot(df.test, aes(x)) + geom_histogram() + facet_wrap(~id)

Запрос о помощи: Я хотел бы наложить на каждый из фасетов гистограмму всех данных, чтобы обеспечить немедленное сравнение каждого фасета с общим набором данных, если это возможно, я хотел бы, чтобы весь набор данных отображался как freq_poly ():

ggplot(df.test, aes(x)) + geom_freqpoly()

Answer 1

Вы можете исключить переменную фасетирования из вызова на geom_freqpoly

ggplot(df.test, aes(x)) + geom_histogram() + facet_wrap(~id) +
  geom_freqpoly(data = df.test[, "x", drop = FALSE], col = "red")

Answer 2

Следующее просто удаляет столбец id из данных geom_freqpoly.

ggplot(df.test, aes(x)) + geom_histogram() + facet_wrap(~id) + 
  geom_freqpoly(data=df.test[-1])

Это заставляет его появляться во всех аспектах: