复现《Cell》图表：多形状气泡图

更多精彩可关注我的公众号《KS科研分享与服务》，有数据、有代码！

依然是上篇帖子的《Cell》文章图表，虽然很简单，但有个图有点意思。这个图还是气泡图类型的，但是特点是用不同的形状将分组表示出来了，我们以往的图中没有涉及这一点，这里做一下。

image.png

（Reference:Proteogenomic characterization of pancreatic ductal adenocarcinoma)

数据是我虚构的，作图数据包含的要素有：两两对应关系和分组。ggplot可轻松实现，当然还可以在我的基础上继续美化。

setwd("F:/生物信息学")
A<- read.csv("A.csv",header = T)
A$Pvalue.adjusted <- -log10(A$Pvalue.adjusted)
library(ggplot2)
ggplot(A,aes(Phosphopeptide,CNV, 
             shape=group, 
             size=Pvalue.adjusted))+
  geom_point(aes(fill=Spearman), color='black')+
  scale_shape_manual(values = c(22,21))+
  scale_fill_gradient2(low='navy',high='firebrick3', mid="white")+
  theme_bw()+
  theme(axis.text =element_text(size = 10, color = "black"),
        axis.text.y = element_text(face="italic"),
        axis.text.x=element_text(angle=90, hjust = 1))

image.png

注释代码及数据已上传群文件！