taoyan:伪码农,R语言爱好者,爱开源。
个人博客: https://ytlogos.github.io/
往期回顾
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)