📜  如何在 R 中更改 ggplot2 线图中的颜色?

📅  最后修改于: 2022-05-13 01:55:35.511000             🧑  作者: Mango

如何在 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()函数,用于传递颜色值列表。

句法:



例子:

电阻

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()函数。

句法:

例子:

电阻



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()

输出: