跟着Nature Genetics学作图：R语言ggpairs散

论文

Plasma proteome analyses in individuals of European and African ancestry identify cis-pQTLs and models for proteome-wide association studies

https://www.nature.com/articles/s41588-022-01051-w

本地pdf s41588-022-01051-w.pdf

代码链接

https://zenodo.org/record/6332981#.YroV0nZBzic

https://github.com/Jingning-Zhang/PlasmaProtein/tree/v1.2

今天的推文重复一下论文中的Extended Data Fig. 10

image.png

部分示例数据截图

image.png

这个是已经做好了主成分分析，现在只是可视化展示结果

读取数据

pc2<-read.delim(file = "data/20220627/ExtendedDataFig10.txt",
                header = TRUE,
                sep="\t")
head(pc2)

作图代码

library(ggplot2)
library(GGally)

pc.pr <- ggpairs(pc2[,3:7],
                 aes(color = pc2$V1),
                 upper = list(continuous = "points"),
                 diag = list(continuous = "blank")) + 
  scale_color_manual(values=c("#238b45","#2171b5")) + 
  theme(panel.background = element_blank(),
        legend.position = "bottom",
        axis.text = element_text(size = 6),
        axis.title = element_text(size = 7)) + 
  scale_x_continuous(breaks = c(-0.01,0,0.01),
                     labels = c(-0.01,0,0.01)) + 
  scale_y_continuous(breaks = c(-0.01,0,0.01),
                     labels = c(-0.01,0,0.01))
pc.pr

image.png

拼图代码

pc.pr+
  scale_color_manual(values = c("#f47720","#459943")) -> p2


library(patchwork)

pdf(file="Rplot05.pdf",
    width = 9.4,
    height = 4)
wrap_elements(ggmatrix_gtable(pc.pr))+
  wrap_elements(ggmatrix_gtable(p2))
dev.off()

image.png

新知识点：ggpairs()函数作图后的拼图代码wrap_elements(ggmatrix_gtable(pc.pr))+ wrap_elements(ggmatrix_gtable(p2))

参考链接

https://github.com/thomasp85/patchwork/issues/100

示例数据和代码可以自己到论文中获取，或者给本篇推文点赞，点击在看，然后留言获取

欢迎大家关注我的公众号

小明的数据分析笔记本

小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！