将摘要图添加到facet_WRAP gglot的末尾

要达到你想要的效果，一种 Select 是使用第二个geom_histogram，如下所示:

library(ggplot2)
set.seed(123)

ggplot(test, aes(x = x)) +
  geom_histogram() +
  geom_histogram(
    data = ~ transform(.x, y = "All Data")
  ) +
  theme_minimal() +
  facet_wrap(~y)

UPDATE是根据您通过dput提供的数据改编的代码.我仍然不明白，当您将代码应用于数据时，出现错误的原因是什么.注意:我修改了代码，将"All Data"类别放在最后.此外，我使用了一种不同的方法来用after_stat()给条形图上色.

library(ggplot2)

DPHdol$station <- factor(
  DPHdol$station,
  levels = c(unique(DPHdol$station), "All Data")
)

bins <- 100
cols <- c("#0072B2", "#253f4b", "#0072B2", "#D55E00", "#F0E442", "#D55E00")
colGradient <- colorRampPalette(cols)
cut.cols <- colGradient(bins)
cuts <- cut

ggplot(DPHdol, aes(x = normalizedtime)) +
  geom_histogram(
    aes(fill = after_stat(factor(x))),
    bins = bins
  ) +
  geom_histogram(
    aes(fill = after_stat(factor(x))),
    data = ~ transform(.x, station = factor("All Data", levels = levels(station))), 
    bins = bins
  ) +
  scale_color_manual(values = cut.cols, labels = levels(cuts)) +
  scale_fill_manual(values = cut.cols, labels = levels(cuts)) +
  scale_x_continuous(
    breaks = c(-1, 0, 1), 
    labels = c("dusk", "dawn", "dusk"),
    limits = c(-1.1, 1.1)
  ) +
  theme_minimal() +
  facet_wrap(~station) +
  guides(fill = "none")