ggplot2--legend图例的修改

太过爱你忘了你带给我的痛 2022-08-04 21:27 275阅读 0赞

> head(msleep)

**name      genus  vore        order conservation sleep\_total sleep\_rem sleep\_cycle awake brainwt bodywt**

1                    Cheetah   Acinonyx carni    Carnivora           lc        12.1        NA          NA  11.9      NA  50.000

2                 Owl monkey      Aotus  omni     Primates                 17.0       1.8          NA   7.0 0.01550   0.480

3            Mountain beaver Aplodontia herbi     Rodentia           nt        14.4       2.4          NA   9.6      NA   1.350

4 Greater short-tailed shrew    Blarina  omni Soricomorpha           lc        14.9       2.3   0.1333333   9.1 0.00029   0.019

5                        Cow        Bos herbi Artiodactyla domesticated         4.0       0.7   0.6666667  20.0 0.42300 600.000

6                    Three-toed sloth   Bradypus herbi       Pilosa                 14.4       2.2   0.7666667   9.6      NA   3.850

p<-ggplot(data = msleep, aes(x=sleep\_total,y= sleep\_cycle,colour = vore))+geom\_point();

[![ggplot2--legend图例的修改][ggplot2--legend]][ggplot2--legend_ggplot2--legend]

如上图所示，ggplot2中的legend包括四个部分:**legend.tittle, legend.text, legend.key, legend.backgroud**。针对每一部分有四种处理方式：

**element\_text()**绘制标签和标题，可控制字体的family, face, colour, size, hjust, vjust, angle, lineheight,当改变角度时，序将hjust调整至0或1.

**element\_rect()**绘制主要供背景使用的矩形，你可以控制颜色的填充（fill）和边界的colour, size, linetype

**element\_blank()**表示空主题，即对元素不分配相应的绘图空间。该函数可以山区我们不感兴趣的绘图元素。使用之前的colour=NA，fill=NA,让某些元素不可见，但仍然占绘图空间。

**element\_get()**可得到当前主题的设置。

**theme()可在一幅图中对某些元素进行局部性修改，theme\_update()可为后面图形的绘制进行全局性的修改。**

** 不加Legend**

p+theme(legend.position='none');

**删除legend.tittle**

p+theme(legend.title=element\_blank())

**图例（legend）的位置**

**图例（legend）的位置**和对齐使用的主题设置legend.position来控制，其值可为right,left,top,bottom,none(不加图例，或是一个表示位置的数值。这个数值型位置由legend.justfication给定的相对边角位置表示（取0和1之间的值），它是一个长度为2的数值型向量：右上角为c(1,1),左下角为c(0,0)

例如：p+theme(legend.position=”left”)

**修改legend.tittle内容**

p+scale\_colour\_hue("what does it eat?",breaks=c("herbi","carni","omni",NA),labels=c("plants","meat","both","don't know"));

修改尺寸大小

p+theme(legend.background=element\_rect(colour="purple",fill="pink",size=3,linetype="dashed"));

p+theme(legend.key.size=unit(2,'cm'));

p+theme(legend.key.width=unit(5,'cm'));

p+theme(legend.text = element\_text(colour = 'red', angle = 45, size = 10, hjust = 3, vjust = 3, face = 'bold'))

报错：could not find function "unit"

解决办法：library(grid)

**颜色的修改以及一致性：**

library(RColorBrewer);

newpalette<-colorRampPalette(brewer.pal(12,"Set3"))(length(unique(eee$name)));

p+scale\_fill\_manual(values=newpalette);

p+geom\_bar(position="stack",aes(order=desc(name)))

参考资料：

[ggplot2--legend]: http://s9.sinaimg.cn/mw690/001SXUocgy6MeCrWY8Ub8&690
[ggplot2--legend_ggplot2--legend]: /images/20220805/dd6005f61c334d94b01e2cf2972efc6c.png