如何解决使用 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"))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。