r - 如何在 R 的 goem_hline() 中添加和编辑图例
问题描述
我正在尝试添加标题,geom_hline ()
但我不知道该怎么做。
我试过geom_hline (aes (yintercept = 18, 'Historical serie'), size = 1.5, col =" # ffff00 ")
但它返回一个错误。我拍了“历史系列”,它起作用了,但标题没有出现。
library(tidyr)
library(dplyr)
library(lubridate)
library(ggplot2)
date2<-c('01/01/2000','08/08/2000','16/03/2001','06/09/2001')
name<-c('A','B','A','B')
total<-c(23,25,36,41)
esp<-c(0.363,0.4123,0.09,0.65)
df<-data.frame(date2,name, total, name, esp)%>%
mutate(date3=as.Date(date2, "%d/%m/%Y"))%>%
mutate(year_date=as.Date(trunc(as.POSIXlt(date3), "years")))
ggplot(data=df, aes(x=year_date, y=total, fill=name))+
geom_col(position = "dodge")+
scale_fill_manual(values=c("#08088A","#9F81F7"))+
theme_light()+labs(fill="rain", title ="rain anual", x="Estation", y="total mm")+
theme(axis.text.x = element_text(angle = 90))+
geom_hline(aes(yintercept = 18, 'Historiacal serie'), size=1.5, col="#ffff00")
期待
我希望18
显示该值及其 Historical serie
对黄线的描述。
解决方案
更新:操作请求:
p <- ggplot(data=df, aes(x=year_date, y=total, fill=name))+
geom_col(position = "dodge")+
scale_fill_manual(values=c("#08088A","#9F81F7"))+
theme_light()+labs(fill="rain", title ="rain anual", x="Estation", y="total mm")+
theme(axis.text.x = element_text(angle = 90))
data_line <- data.frame(yintercept=18, data_line=factor(18))
p +
geom_hline(data=data_line, aes(yintercept=yintercept, linetype="18"), size=1.5, col="#ffff00") +
scale_linetype_manual(name = "Historiacal serie",values = c(1,1))
推荐阅读
- r - ggplot2 绘制相同的图而不是不同的图
- loops - 无法使用 awk/gawk 循环多个输入文件
- angular - Angular 6 - 反应式表单和复选框值
- c# - 使用 JSON.NET 将部分 json 反序列化为 C# 中的数据表,其中密钥是动态的
- mysql - 一段时间内的最大平均值
- redis - 加速 400 GB Redis 还原
- android - 如何在具有不同数据的不同 viewpager 中使用相同的片段?
- c - Inline Assembler Syscall PTRACE(不允许操作)
- powershell - 使用 PowerShell 仅复制同一文件的每组的最后一个文件
- sql - TSQL:向“SELECT”结果集添加行