ggplot如何做到像plot那样图例上方没有colour那个单词且能自定义颜色呢？

1. library(ggplot2)
   
2. x=seq(0,10,length=300)
   
3. df <- data.frame(x = x,y = x/2,
   
4.                  z1 = x/2+sqrt(x),
   
5.                  z2 = x/2-sqrt(x)) #c("x","mean","mean+SD","mean-SD")
   
6. ggplot(df, aes(x,y,colour = "mean")) +
   
7.   geom_line(lwd = 1.5) +
   
8.   geom_line(aes(x=x,y=z1,colour="mean+SD"), lty = 2, lwd = 1.6) +
   
9.   geom_line(aes(x=x,y=z2,colour="mean-SD"), lty = 2, lwd = 1.6) +
   
10.   scale_y_continuous(limits = c(-1,9)) +
    
11.   scale_x_continuous(limits = c(0,11)) +
    
12.   theme(legend.title=NULL) +
    
13.   theme(legend.position=c(.1,0.9)) +
    
14.   theme(legend.background=element_blank()) +
    
15.   theme(legend.key=element_blank()) +
    
16.   labs(x="time")

复制代码

1. plot(x,x/2,type="l",ylim=c(-1,9), xlim=c(0,11),
   
2.      lwd=2,ylab="",xlab="time")
   
3. lines(x,x/2+sqrt(x),lty=2,lwd=2)
   
4. lines(x,x/2-sqrt(x),lty=2,lwd=2)
   
5. legend("topleft",c("mean","mean+SD","mean-SD"),
   
6.        lwd=2,lty=c(1,2,2))

复制代码

theme(legend.title=NULL)改为theme(legend.title=element_blank())
最后加一层scale_color_manual(values = c("red","blue","black"))

1. ggplot(df, aes(x,y,colour = "mean")) +
   
2.   geom_line(lwd = 1.5) +
   
3.   geom_line(aes(x=x,y=z1,colour="mean+SD"), lty = 2, lwd = 1.6) +
   
4.   geom_line(aes(x=x,y=z2,colour="mean-SD"), lty = 2, lwd = 1.6) +
   
5.   scale_y_continuous(limits = c(-1,9)) +
   
6.   scale_x_continuous(limits = c(0,11)) +
   
7.   theme(legend.title=element_blank()) +
   
8.   theme(legend.position=c(.1,0.9)) +
   
9.   theme(legend.background=element_blank()) +
   
10.   theme(legend.key=element_blank()) +
    
11.   labs(x="time") +
    
12.   scale_color_manual(values = c("red","blue","black"))

复制代码

楼上有一点小问题，就是添加线条的顺序和颜色的顺序不一致。最后一项需加一个参数。

1. ggplot(df, aes(x,y,colour = "mean")) +
   
2.       geom_line(lwd = 1.5) +
   
3.       geom_line(aes(x=x,y=z1,colour="mean+SD"), lty = 2, lwd = 1.6) +
   
4.       geom_line(aes(x=x,y=z2,colour="mean-SD"), lty = 2, lwd = 1.6) +
   
5.       scale_y_continuous(limits = c(-1,9)) +
   
6.       scale_x_continuous(limits = c(0,11)) +
   
7.       theme(legend.title=element_blank()) +
   
8.       theme(legend.position=c(.1,0.9)) +
   
9.       theme(legend.background=element_blank()) +
   
10.       theme(legend.key=element_blank()) +
    
11.       labs(x="time") +
    
12.       scale_color_manual(limits=c("mean","mean+SD","mean-SD"),values = c("red","blue","black"))  
    
13.   

复制代码