|
需要示例数据及代码，想入群的小伙伴可阅读一下内容：
《KS科研分享与服务》公众号有交流群，但是需要门槛进入，门槛是20元哦，请考虑清楚。群里有推文的注释代码和示例数据，付费内容半价，还可以与大家交流。单细胞转录组全流程代码需收费，收费代码包含公众号付费内容，也有很多新增加的内容。需进群或者需单细胞代码的小伙伴请添加作者微信了解，请备注目的，除此之外请勿添加，谢谢！
详情请联系作者：
依然是上篇帖子的《Cell》文章图表，虽然很简单，但有个图有点意思。这个图还是气泡图类型的，但是特点是用不同的形状将分组表示出来了，我们以往的图中没有涉及这一点，这里做一下。 
（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))
注释代码及数据已上传群文件！
|
