如何用 R 中的 ggplot2 更改折线图中折线的颜色?
当我们创建每个折线都有不同颜色的折线图时,如果我们第一次使用的颜色不能使图表美观,我们可能希望更改折线的颜色。这可以通过使用 scale_color_manual 函数手动设置图中折线颜色来实现。
示例
考虑以下数据框 −
> set.seed(2) > Group<-rep(c(1:5),times=4) > Time<-rep(c("Time1","Time2"),each=) > Frequency<-rpois(20,5) > df<-data.frame(Group,Time,Frequency) > df Group Time Frequency 1 1 Time1 3 2 2 Time2 6 3 3 Time1 5 4 4 Time2 3 5 5 Time1 9 6 1 Time2 9 7 2 Time1 3 8 3 Time2 7 9 4 Time1 5 10 5 Time2 5 11 1 Time1 5 12 2 Time2 3 13 3 Time1 6 14 4 Time2 3 15 5 Time1 4 16 1 Time2 7 17 2 Time1 10 18 3 Time2 3 19 4 Time1 5 20 5 Time2 2 > library(ggplot2) > ggplot(df,aes(x=Group,y=Frequency,colour=Time))+ + geom_line()
输出
更改折线颜色为绿色和黑色 −
> ggplot(df,aes(x=Group,y=Frequency,colour=Time))+ + geom_line()+ + scale_color_manual(values=c("Green","Black"))
输出
广告