在ggplot2中创建自定义图例

Question

我正在尝试创建一个图例，该图例将使用自定义标签和颜色，与注释图中突出显示区域对应的alphas，而不是使用代码在图表中绘制的数据系列：

library(ggplot2)
data(economics)
p1 <- ggplot(data=economics, mapping=aes(x=date, y=unemploy)) +
  geom_line(size=1) +
  annotate("rect", xmin=as.Date('1970-01-01'), xmax=as.Date('1980-01-01'), ymin=-Inf, ymax=Inf, alpha=0.2, fill="red") +
  annotate("rect", xmin=as.Date('1990-01-01'), xmax=as.Date('2000-01-01'), ymin=-Inf, ymax=Inf, alpha=0.2, fill="green") +
p1

我想添加带有标签的传奇，上面写着“1970年代”，“20世纪90年代”，相应的颜色为红色和绿色，alphas为0.2，对应于注释元素。有没有办法做到这一点？

Answer 1

最简单的方法是为需要注释的区域创建新的数据框。

df<-data.frame(xmin=as.Date(c('1970-01-01','1990-01-01')),
               xmax=as.Date(c('1980-01-01','2000-01-01')),
               ymin=c(-Inf,-Inf),
               ymax=c(Inf,Inf),
               years=c("1970s","1990s"))

然后使用geom_rect()和这个新数据框添加这些区域。传奇将自动生成。使用scale_fill_manual（），您可以更改颜色。

ggplot(data=economics, mapping=aes(x=date, y=unemploy)) +
  geom_line(size=1)+
  geom_rect(data=df,aes(xmin=xmin,ymin=ymin,xmax=xmax,ymax=ymax,fill=years),
                    alpha=0.2,inherit.aes=FALSE)+
  scale_fill_manual(values=c("red","green"))