R语言ggplot2使用geom_label()函数添加文本标签

首先是构造一份数据集

library(ggplot2)
df<-data.frame(x=c(1,1),
               y=c(1,2),
               label=c("A","BB"))

画图

ggplot(data=df,aes(x=x,y=y))+
  geom_label(aes(label=label,fill=label))+
  theme(aspect.ratio = 0.2)+
  ylim(0,3)

image.png

文本框的四周默认是带有圆角的，如果不想要圆角可以使用参label.r

ggplot(data=df,aes(x=x,y=y))+
  geom_label(aes(label=label,fill=label),
             label.r = unit(0,'mm'))+
  theme(aspect.ratio = 0.2)+
  ylim(0,3)

image.png

这样就变成了直角

如果不想要文本框四周的黑线，可以使用label.size=NA参数

ggplot(data=df,aes(x=x,y=y))+
  geom_label(aes(label=label,fill=label),
             label.r = unit(0,'mm'),
             label.size = NA)+
  theme(aspect.ratio = 0.2)+
  ylim(0,3)

image.png

调整带颜色的背景的大小，可以使用label.padding参数

ggplot(data=df,aes(x=x,y=y))+
  geom_label(aes(label=label,fill=label),
             label.r = unit(0,'mm'),
             label.size = NA,
             label.padding = unit(0.3,'cm'))+
  theme(aspect.ratio = 0.2)+
  ylim(0,3)

image.png

学英语时间

padding 字典的解释

• 1 soft material that is placed inside sth to make it more comfortable or to change its shape 衬料 衬垫

• 2 words that are used to make a speech, piece of writing, etc. longer, but that do not contain any interesting information 凑篇幅的文字

这里遇到一个问题是两个文本不一样，背景颜色的大小就不一样，如和把他们改成大小一样的呢？暂时没有找到参数来调节

如果要调节文本框的位置可以使用nudge_x和nudge_y参数

ggplot(data=df,aes(x=x,y=y))+
  geom_label(aes(label=label,fill=label),
             label.r = unit(0,'mm'),
             label.size = NA,
             label.padding = unit(0.3,'cm'),
             nudge_y = c(-0.5,0.2),nudge_x = c(0.5,-0.2))+
  theme_bw()+
  theme(aspect.ratio = 0.2)+
  ylim(0,3)

image.png

还有一个

excel里如果想要把减号- 当成文本作为输入的话，得在前面加一个单引号的一个 '-

好了今天的内容就到这里了

欢迎大家关注我的公众号

小明的数据分析笔记本

小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！