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 字典的解释
这里遇到一个问题是两个文本不一样,背景颜色的大小就不一样,如和把他们改成大小一样的呢?暂时没有找到参数来调节
如果要调节文本框的位置可以使用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、生物信息学入门学习资料及自己的学习笔记!