第R語(yǔ)言ggplot2設(shè)置圖例(legend)的操作大全目錄基本箱線(xiàn)圖(帶有圖例)移除圖例修改圖例的內(nèi)容顛倒圖例的順序隱藏圖例標(biāo)題修改圖例中的標(biāo)簽修改data.frame的factor修改標(biāo)題和標(biāo)簽的顯示修改圖例的框架設(shè)置圖例的位置隱藏斜線(xiàn)總結(jié)本文在/Graphs/Scatterplots_(ggplot2)/的基礎(chǔ)上加入了自己的理解

圖例用來(lái)解釋圖中的各種含義,比如顏色,形狀,大小等等,在ggplot2中aes中的參數(shù)(x,y除外)基本都會(huì)生成圖例來(lái)解釋圖形,比如fill,colour,linetype,shape.

基本箱線(xiàn)圖(帶有圖例)

library(ggplot2)

bp-ggplot(data=PlantGrowth,aes(x=group,y=weight,fill=group))+geom_boxplot()

bp

移除圖例

Useguides(fill=FALSE),replacingfillwiththedesiredaesthetic.使用guides(fill=FALSE)移除由ase中匹配的fill生成的圖例,也可以使用themeYoucanalsoremoveallthelegendsinagraph,usingtheme.

bp+guides(fill=FALSE)

#也可以這也

bp+scale_fill_discrete(guide=FALSE)

#移除所有圖例

bp+theme(legend.position="none")

修改圖例的內(nèi)容

改變圖例的順序?yàn)閠rt1,ctrl,trt2:

bp+scale_fill_discrete(breaks=c("trt1","ctrl","trt2"))

根據(jù)不同的分類(lèi),可以使用scale_fill_manual,scale_colour_hue,scale_colour_manual,scale_shape_discrete,scale_linetype_discrete等等.

顛倒圖例的順序

#多種方法

bp+guides(fill=guide_legend(reverse=TRUE))

#也可以

bp+scale_fill_discrete(guide=guide_legend(reverse=TRUE))

#還可以這也

bp+scale_fill_discrete(breaks=rev(levels(PlantGrowth$group)))

隱藏圖例標(biāo)題

#Removetitleforfilllegend

bp+guides(fill=guide_legend(title=NULL))

#Removetitleforalllegends

bp+theme(legend.title=element_blank())

修改圖例中的標(biāo)簽

兩種方法一種是直接修改標(biāo)簽,另一種是修改data.frame

Usingscales

圖例可以根據(jù)fill,colour,linetype,shape等繪制,我們以fill為例,scale_fill_xxx,xxx表示處理數(shù)據(jù)的一種方法,可以是hue(對(duì)顏色的定量操作),continuous(連續(xù)型數(shù)據(jù)處理),discete(離散型數(shù)據(jù)處理)等等.

#設(shè)置圖例名稱(chēng)

bp+scale_fill_discrete(name="Experimental\nCondition")

#設(shè)置圖例的名稱(chēng),重新定義新的標(biāo)簽名稱(chēng)

bp+scale_fill_discrete(name="Experimental\nCondition",

breaks=c("ctrl","trt1","trt2"),

labels=c("Control","Treatment1","Treatment2"))

#自定義fill的顏色

bp+scale_fill_manual(values=c("#999999","#E69F00","#56B4E9"),

name="Experimental\nCondition",

breaks=c("ctrl","trt1","trt2"),

labels=c("Control","Treatment1","Treatment2"))

注意這里并不能修改x軸的標(biāo)簽,如果需要改變x軸的標(biāo)簽,可以參照/tanzuozhev/article/details/51107583

#Adifferentdataset

df1-data.frame(

sex=factor(c("Female","Female","Male","Male")),

time=factor(c("Lunch","Dinner","Lunch","Dinner"),levels=c("Lunch","Dinner")),

total_bill=c(13.53,16.81,16.24,17.42)

#Abasicgraph

lp-ggplot(data=df1,aes(x=time,y=total_bill,group=sex,shape=sex))+geom_line()+geom_point()

lp

#修改圖例

lp+scale_shape_discrete(name="Payer",

breaks=c("Female","Male"),

labels=c("Woman","Man"))

Ifyouusebothcolourandshape,theybothneedtobegivenscalespecifications.Otherwisetherewillbetwotwoseparatelegends.如果同時(shí)使用color和shape,那么必須都進(jìn)行scale_xx_xxx的定義,否則color和shape的圖例就會(huì)合并到一起,如果scale_xx_xxx中的name相同,那么他們也會(huì)合并到一起.

#Specifycolourandshape

lp1-ggplot(data=df1,aes(x=time,y=total_bill,group=sex,shape=sex,colour=sex))+geom_line()+geom_point()

lp1

#Here'swhathappensifyoujustspecifycolour

lp1+scale_colour_discrete(name="Payer",

breaks=c("Female","Male"),

labels=c("Woman","Man"))

#Specifybothcolourandshape

lp1+scale_colour_discrete(name="Payer",

breaks=c("Female","Male"),

labels=c("Woman","Man"))+

scale_shape_discrete(name="Payer",

breaks=c("Female","Male"),

labels=c("Woman","Man"))

scale_xxx_yyy:

xxx的分類(lèi)colour:點(diǎn)線(xiàn)或者其他圖形的框線(xiàn)顏色fill:填充顏色linetype:線(xiàn)型,實(shí)線(xiàn)虛線(xiàn)點(diǎn)線(xiàn)shape:點(diǎn)的性狀,超級(jí)多,可以自己搜索一下size:點(diǎn)的大小alpha:透明度

yyy的分離hue:設(shè)置色調(diào)范圍（h）、飽和度（c）和亮度（l）獲取顏色manual:手動(dòng)設(shè)置gradient:顏色梯度grey:設(shè)置灰度值discrete:離散數(shù)據(jù)(e.g.,colors,pointshapes,linetypes,pointsizes)continuous連續(xù)行數(shù)據(jù)(e.g.,alpha,colors,pointsizes)

修改data.frame的factor

pg-PlantGrowth#Copydataintonewdataframe

#Renamethecolumnandthevaluesinthefactor

levels(pg$group)[levels(pg$group)=="ctrl"]-"Control"

levels(pg$group)[levels(pg$group)=="trt1"]-"Treatment1"

levels(pg$group)[levels(pg$group)=="trt2"]-"Treatment2"

names(pg)[names(pg)=="group"]-"ExperimentalCondition"

#Viewafewrowsfromtheendproduct

head(pg)

##weightExperimentalCondition

##14.17Control

##25.58Control

##35.18Control

##46.11Control

##54.50Control

##64.61Control

#Maketheplot

ggplot(data=pg,aes(x=`ExperimentalCondition`,y=weight,fill=`ExperimentalCondition`))+

geom_boxplot()

修改標(biāo)題和標(biāo)簽的顯示

#標(biāo)題

bp+theme(legend.title=element_text(colour="blue",size=16,face="bold"))

#標(biāo)簽

bp+theme(legend.text=element_text(colour="blue",size=16,face="bold"))

修改圖例的框架

bp+theme(legend.background=element_rect())

bp+theme(legend.background=element_rect(fill="gray90",size=.5,linetype="dotted"))

設(shè)置圖例的位置

圖例的位置(left/right/top/bottom):

bp+theme(legend.position="top")

也可以根據(jù)坐標(biāo)來(lái)設(shè)置圖例的位置,左下角為(0,0),右上角為(1,1)

#Positionlegendingraph,wherex,yis0,0(bottomleft)to1,1(topright)

bp+theme(legend.position=c(.5,.5))

#Setthe"anchoringpoint"ofthelegend(bottom-leftis0,0;top-rightis1,1)

#Putbottom-leftcorneroflegendboxinbottom-leftcornerofgraph

bp+theme(legend.justification=c(0,0),#這個(gè)參數(shù)設(shè)置很關(guān)鍵

legend.position=c(0,0))

#Putbottom-rightcorneroflegendboxinbottom-rightcornerofgraph

bp+theme(legend.justification=c(1,0),legend.position=c(1,0))

隱藏斜線(xiàn)

#Nooutline

ggplot(data=PlantGrowth,aes(x=group,fill=group))+

geom_bar()