ggplot2 添加文字说明geom_text—科研工具箱-叨客学习资料网

请关注公众号【叨客学习资料】在使用网站的过程中有疑问，请来公众号进行反馈哦

加载数据，绘制散点图：

library(ggplot2)
mtcars$gear <- as.character(mtcars$gear)
p <- ggplot(mtcars, aes(wt, mpg, color = gear))+
geom_point(size = 2.0)+
theme_bw()

图片[1]-ggplot2 添加文字说明geom_text—科研工具箱-叨客学习资料网

nnn <- table(mtcars$gear)
data_text<-data.frame(label=c(paste0(\"n = \",nnn[1]),paste0(\"n = \",nnn[2]),paste0(\"n = \",nnn[3])),
x=c(5,5,5),
y=c(30,29,28),
color=unique(mtcars$gear))

p <- p+geom_text(data=data_text,
mapping=aes(x=x,y=y,label=label,color=color))

图片[2]-ggplot2 添加文字说明geom_text—科研工具箱-叨客学习资料网

重新定义颜色：

p + scale_color_manual(values = c(\"red\", \"blue\", \"green\"))

图片[3]-ggplot2 添加文字说明geom_text—科研工具箱-叨客学习资料网

版权声明 1、本网站名称：叨客学习资料网
2、本站永久网址：https://www.leobba.cn
3、本网站的文章部分内容可能来源于网络，仅供大家学习与参考，如有侵权，请联系站长进行删除处理。
4、本站一切资源不代表本站立场，并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息，访客发现请向站长举报
6、本站资源大多存储在云盘，如发现链接失效，请联系我们我们会第一时间更新。

THE END