Question

我想在第二个y轴上添加第二个数据集（年度，橙色线和点）。在提出了许多非常好的建议之后，我能够在图中添加一个图例，但是仍然缺少将橙色（年度）数据集关联到辅助轴的功能。欢迎任何帮助！

 library("ggplot2")
    library("reshape2")

    data<-read.csv("trial.csv",header=TRUE,dec=".",sep=',',na.strings="NA")

    sec_scale=1/10
datu_sub=data[,c(2,3,1)]
datu=melt(datu_sub,id=c("Year"))
p1<-ggplot(datu)+geom_line(aes(x=Year,y=value,colour=variable),linetype="solid",size=1.1)+
  geom_point(aes(x=Year,y=value,colour=variable),shape=1,size=3,stroke=1.5)+
  scale_colour_manual(values=c("darkorange","red"))+
  scale_y_continuous(sec.axis=sec_axis(~.*sec_scale,name="Annual\n"))
p1<-p1+labs(x="\nYear",y="Cumulative\n")
p1+theme(axis.title.x=element_text(size=18),
         axis.text.x=element_text(size=14),
         axis.title.y=element_text(size=18),
         axis.text.y=element_text(size=14),
         axis.ticks=element_blank(),
         legend.title=element_blank(),
         legend.position=c(0.12,0.89),
         legend.text=element_text(size=14),
         legend.background=element_rect(fill="white",size=0.5,linetype="dotted"))

尝试将第二个数据集关联到次要y轴

0 个答案: