ggplot2：添加背景层答案

【问题标题】：ggplot2: adding a background layerggplot2：添加背景层
【发布时间】：2011-03-29 01:14:40
【问题描述】：

我想在堆叠区域图集的背景中添加暗/亮相位信息，以突出显示光如何影响曲线的形状。我的数据框如下所示：

> str(MDist.median)
'data.frame':   2880 obs. of  6 variables:
 $ groupname: Factor w/ 8 levels "rowA","rowB",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ fCycle   : Factor w/ 6 levels "predark","Cycle 1",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ fPhase   : Factor w/ 2 levels "Light","Dark": 2 2 2 2 2 2 2 2 2 2 ...
 $ starttime: num  0.3 60 120 180 240 300 360 420 480 540 ...
 $ dists    : Factor w/ 3 levels "inadist","smldist",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ value    : num  110 123 124 128 132 ...

示例数据：

> head(MDist.median)
  groupname  fCycle fPhase starttime   dists  value
1      rowA predark   Dark       0.3 inadist 110.00
2      rowA predark   Dark      60.0 inadist 123.25
3      rowA predark   Dark     120.0 inadist 124.10
4      rowA predark   Dark     180.0 inadist 128.35
5      rowA predark   Dark     240.0 inadist 131.80
6      rowA predark   Dark     300.0 inadist 140.30

我的区域图在 x 轴上按 starttime 在 y 轴上堆叠了 3 种 dists。

dists.med.areaplot <- qplot(starttime,value,fill=dists,facets=~groupname,
 geom='area',data=MDist.median, stat='identity') + 
 labs(y='median distances', x='time(s)', fill='Distance Types')+
 opts(title='Changes in Fish Activity and Activity Type') + 
 scale_fill_brewer(type='seq')

我想在每个绘图后面添加垂直矩形，这些矩形由每个 fCycle 的最小和最大开始时间水平定位，其中 fPhase=="Dark"。我在 GIMP 中编辑了我的图表集以显示我的意思：

我一直在尝试使用主题，但效果不佳。想法？

预计到达时间

所以，使用这个例子（来自 Hadley 的 website）：

(unemp <- qplot(date, unemploy, data=economics, geom="line", 
  xlab = "", ylab = "No. unemployed (1000s)"))

presidential <- presidential[-(1:3), ]

yr <- range(economics$unemploy)
unemp + geom_rect(
  aes(NULL, NULL, xmin = start, xmax = end, fill = party), 
  ymin = yr[1], ymax = yr[2], data = presidential) + 
  scale_fill_manual(values = alpha(c("blue", "red"), 0.2)
)

我可以用我的数据做到这一点：

dists.med.areaplot + geom_rect(
      aes(NULL, NULL, xmin = phase_start, xmax = phase_end, fill = fPhase), 
      ymin = -Inf, ymax = Inf, data = phase_starts) + 
      scale_fill_manual(values = alpha(c("#cccccc", "#000000"), 0.2)
    )

在图例中添加 Light 和 Dark 类别并将所有颜色更改为灰色。

如果我省略 scale_fill_manual(values = alpha(c("#cccccc", "#000000"), 0.2)，我会得到我期望的矩形，但图例仍然会发生变化，但它们在我的原始图形之上是完全不透明的，并且在我的颜色序列中使用前 2 种颜色。

如何在原始图后面制作 geom_rect？

【问题讨论】：

提示：geom_rect、ymin = -Inf、ymax = Inf。另请参阅 ggplot2 书中的 5.10。
@hadley：感谢您的提示。我正在尝试myplot + geom_rect(aes(NULL, NULL, xmin = phase_start, xmax = phase_end, fill = fPhase), ymin = -Inf, ymax = Inf, data = phase_starts))，它成功地生成了正确的矩形。但矩形在顶部且不透明。

标签： r ggplot2

【解决方案1】：

使用您更新的代码，我将仅采用 dark 区域的子集。然后添加

geom_rect(data = dark.subset, aes(xmin = phase_start, xmax = phase_end), 
              ymin = -Inf,
              ymax = Inf,
              fill = alpha("#000000", 0.2))

这将避免将light 和dark 映射到任何比例。至于出现在顶部，请以不同的顺序添加您的几何图形：

ggplot(...)+
  geom_rect(...)+
  geom_area(...)

【讨论】：