将密度图覆盖到 ggplot2 中每个现有的面包裹密度图？

Question

我有一个大约 37000 行的数据框，其中包含字符串格式的“名称”和 posixct 格式的“UTCDateTime”，我正在使用它来生成按名称分组的刻面包装时间密度图：

我还有一个来自完全不同的数据框的 posixct 日期时间数据的单独密度图：

我想在第一个密度图中的每个单独的 facet_wrapped 图中覆盖第二个密度图。有没有办法做到这一点？一般来说，如果我有任何类型的分面包装图和另一个相同类型但不同数据的图，我想在分面包装的每个分面上叠加，我该怎么做？

Answer 1

理论上，这应该就像在第二个数据框中没有您要分面的列一样简单。示例如下：

library(ggplot2)

ggplot(iris, aes(Sepal.Width)) +
  geom_density(aes(fill = Species)) +
  geom_density(data = faithful,
               aes(x = eruptions)) +
  facet_wrap(~ Species)

^{由reprex package (v0.3.0) 于 2020-08-12 创建}

编辑：要获得两种类型数据的相同比例的密度，您可以使用 after_stat()* 计算的变量：

ggplot(iris, aes(Sepal.Width)) +
  geom_density(aes(y = after_stat(scaled),
                   fill = Species)) +
  geom_density(data = faithful,
               aes(x = eruptions,
                   y = after_stat(scaled))) +
  facet_wrap(~ Species)

* 在 ggplot2 v3.3.0 之前还有 stat(variable) 或 ...variable...。