如何在 R 中更改 ggplot2 线图中的颜色?
折线图是一种图表,用于以一系列数据点的形式显示信息。它利用点和线来表示随时间的变化。折线图是通过在 X 坐标和 Y 坐标上绘制不同的点,然后通过一条线从头到尾将它们连接在一起来绘制的。但是,有时必须更改线条的颜色,因为单个图形中可能有不止一条线条。在本文中,我们将看到如何在 R 编程语言中更改折线图的颜色。
让我们看一个例子来描述默认情况下折线图的颜色是什么。
例子:
R
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line()+geom_point()
R
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()
R
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()+
scale_color_manual(values=c('Green','Yellow'))
R
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()+
scale_color_brewer(palette="Accent")
R
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+
geom_point()+scale_color_grey()
输出:
可以通过多种方式更改折线图的颜色。对于这个简单的颜色属性值作为将在其上区分值的列的名称。参考此列,默认情况下将为值分配不同的颜色。
例子:
电阻
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()
输出:
自定义调色板也可用于区分不同的折线图。对于此 scale_color_manual()函数,用于传递颜色值列表。
句法:
scale_color_manual(values=c(color1, color2, …. , color n))
例子:
电阻
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()+
scale_color_manual(values=c('Green','Yellow'))
输出:
自定义颜色也可以通过 brewer 调色板传递,为此添加带有要使用的调色板的适当名称的 scale_color_brewer()函数。
句法:
scale_color_brewer(palette=palette_name)
例子:
电阻
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+geom_point()+
scale_color_brewer(palette="Accent")
输出:
灰度也可用于为线条赋予不同的颜色。为此使用 scale_color_grey()函数。
例子:
电阻
library("ggplot2")
year<-c(2000,2001,2002,2003,2004)
winner<-c('A','B','B','A','B')
score<-c(9,7,9,8,8)
df<-data.frame(year,winner,score)
ggplot(df,aes(x=year,y=score,group=winner))+
geom_line(aes(color=winner))+
geom_point()+scale_color_grey()
输出: