taoyan:伪码农,R语言爱好者,爱开源。
个人博客: https://ytlogos.github.io/
往期回顾
![烟花](https://img-blog.csdnimg.cn/img_convert/ecdf3ad83a8eeb9a07a2bf68488a4d0a.gif;wxfrom=5&wx_lazy=1)
![](https://img-blog.csdnimg.cn/img_convert/6f8ff702efe8aac814ebf5fc275964c6.png;wxfrom=5&wx_lazy=1)
library(ggplot2)
#使用数据集mtcars演示
ggplot(mtcars)+ geom_point(aes(wt, mpg), color="red")+geom_text(aes(wt, mpg, label=rownames(mtcars)))+theme_classic(base_size = 16)
可以看到可视化效果不是很好。接下来看看包ggrepel的效果。
geom_text_repel()是基于geom_text()
library(ggrepel)
set.seed(42)
ggplot(mtcars)+ geom_point(aes(wt, mpg), color="red")+
geom_text_repel(aes(wt, mpg, label=rownames(mtcars)))+
theme_classic(base_size = 16)