легенда 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"))