ggplot图例与geom_rect

Question

我正在尝试为geom_rect图例创建图例项。但是传说也显示了形状，而不是简单的灰色矩形（请参见下面的示例）。

是否有一种方法可以创建图例项，该图例项仅显示geom_rect的灰色矩形，并显示数据点的填充形状？

library(ggplot2)

ggplot(iris, aes(Sepal.Length, Sepal.Width))+ 
  geom_rect(mapping=aes(xmin=5.5,
                         xmax=6.5,
                          ymin=2.5,
                         ymax=3.5,fill="historic range"))+
  geom_point(aes(Sepal.Length, Sepal.Width,fill="Data points",shape="Data points")) +
  scale_fill_manual(values=c("darkgreen","grey"),labels=c("Data points","historic range")) +
  scale_shape_manual(values=c(22),labels=c("Data points"))

以上代码的结果：

Answer 1

尝试一下

library(ggplot2)
ggplot(iris, aes(Sepal.Length, Sepal.Width)) + 
  geom_rect(aes(xmin=5.5, xmax=6.5, ymin=2.5, ymax=3.5, fill="Historic range")) +
  geom_point(aes(x=Sepal.Length, y=Sepal.Width, shape="Data points"), fill='red') +
  scale_fill_manual(values="grey", labels=c("Historic range")) +
  scale_shape_manual(values=c(22), labels=c("Data points"))