Хотите граней? Например, что-то вроде этого:
set.seed(123)
DF <- data.frame(Question = rep(paste0("Question ", 1:10), 80),
Age_Group = factor(sample(c("10-20", "20-30", "30-40", "40-50"),
800, replace=TRUE)),
Value = sample(8:30, 800, replace = TRUE))
DF$Question <- factor(DF$Question, unique(DF$Question))
library(ggplot2)
ggplot(DF, aes(x=Value)) +
geom_histogram() +
facet_grid(Question ~ Age_Group) +
theme(strip.text.y = element_text(angle = 0))
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Created on 2020-08-05 by the пакет REPEX (v0.3.0)