cliffgao的个人博客分享 http://blog.sciencenet.cn/u/cliffgao 兴趣:生物信息学、统计、概率

博文

R ggplot2 给分面数据facet 添加文字

已有 6790 次阅读 2021-3-24 22:27 |个人分类:R语言|系统分类:科研笔记

问题: 使用ggplot2的分面 facet之后如何 给分面的画布添加文字?


图片:

Rplot01.png


解决方法:

### 使用数据

head(SSdat)


  ProID SS       RSA   PredRSA

1 1a1xA  C 1.0000000 0.9972860

2 1a1xA  C 1.0000000 0.9894930

3 1a1xA  C 0.4368421 0.3556108

4 1a1xA  C 1.0000000 0.9548766

5 1a1xA  C 0.1612903 0.1963138

6 1a1xA  C 0.7733333 0.6331485


###

myggp<-ggplot(data=SSdat,aes(x=PredRSA,y=RSA,group=SS))+

  geom_point(size=0.5,alpha=0.3)+

  facet_wrap(~SS)+  #分面

  geom_smooth(formula=y~x, method = "lm",alpha=0.6,size=1.4)+ #添加回归直线

  theme_bw()  #白色背景


## 产生数据框, 为了给文字坐标

data_text<-data.frame(label=c("PCC=0.891","PCC=0.845","PCC=0.901"),

                      SS=c("C","E","H"),

                      x=c(0.15,0.15,0.15),

                      y=c(0.95,0.95,0.95))

####

####data_text

#      label SS    x    y

#1 PCC=0.891  C 0.15 0.95

#2 PCC=0.845  E 0.15 0.95

#3 PCC=0.901  H 0.15 0.95

### 为每幅画 添加文字。

myggp+geom_text(data=data_text,

                mapping=aes(x=x,y=y,label=label),nudge_x=0.1,nudge_y=0.1)




https://wap.sciencenet.cn/blog-468005-1278425.html

上一篇:R 中 如何分组求相关系数
收藏 IP: 111.32.91.*| 热度|

0

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-3-19 18:37

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部