使用 ggplot 自定义图例

问题描述

假设我使用 ggplot2 包有以下情节

library(ggplot2)

Data = data.frame('Date' = as.Date("2028-01-01") + 1:7,'y' = c(0.0,1.0,2.0,3.0,4.0,5.0,6.0),'yLow' = c(0.0,6.0) - 2.2,'yUp' = c(0.0,6.0) + 2.2,'Pt1' = c(-1,NA,NA) + 3.2,'Pt2' = c(NA,2,NA) + 4.2)
Data

ggplot(Data,aes(x = Date,y = y)) +
        geom_line(size = 1,alpha = 0.8) +
        geom_ribbon(aes(ymin = yLow,ymax = yUp),fill = "blue",alpha = 0.2) +
        geom_point(aes(x = Date,y = Pt1),color = "blue",shape = 23) 

现在我想在这个情节中制作一个自定义图例。此图例将仅将 yLow 和 yUp 之间区域的信息显示为填充蓝色（alpha 0.2）的矩形，以及 y 的信息作为线和Pt1的信息作为形状为23的点

这是一个例子，我想如何拥有图例 -

我也想把图例放在情节区域。

有什么办法可以实现吗？

任何指针都将受到高度赞赏。

谢谢，

根据@bird 的回答进行编辑

只要我只有一个变量要绘制为点，即Pt1，答案就有效。但是如果我添加另一个类似的变量 Pt2，我会得到错误：

ggplot(Data,alpha = 0.8,aes(linetype = "My line")) +
        geom_ribbon(aes(ymin = yLow,ymax = yUp,fill = "My area"),y = Pt1,col = "My point"),shape = 23) +
        scale_color_manual("",values = c("My point"="blue")) +
        scale_fill_manual("",values = c("My area"="blue")) +
        scale_linetype_manual("",values = c("My line"="solid")) +

        geom_point(aes(x = Date,y = Pt2,col = "My point2"),values = c("My point2"="red")) 

这给出了错误

Scale for 'colour' is already present. Adding another scale for 'colour',which will replace the existing scale.
Error: Insufficient values in manual scale. 2 needed but only 1 provided.

我很少有这样的变量可以绘制为点。有什么办法可以解决这个问题吗？

解决方法

一种解决方案是：

ggplot(Data,aes(x = Date,y = y)) +
        geom_line(size = 1,alpha = 0.8,aes(linetype = "My line")) +
        geom_ribbon(aes(ymin = yLow,ymax = yUp,fill = "My area"),alpha = 0.2) +
        geom_point(aes(x = Date,y = Pt1,col = "My point"),shape = 23) +
        scale_color_manual("",values = c("My point"="blue")) +
        scale_fill_manual("",values = c("My area"="blue")) +
        scale_linetype_manual("",values = c("My line"="solid"))