超简单的比较基因组学Ka/Ks进化速率图绘制

公众号：生信漫谈

超简单的比较基因组学Ka/Ks进化速率图绘制https://mp.weixin.qq.com/s?__biz=MzkwNjQyNTUwMw==&mid=2247485220&idx=1&sn=1f5cfb9cff625292b9cadfd2544bbd15&chksm=c0e9e2d4f79e6bc22e1a8f9adaa17715231b69930154fd30a5cdd8a1217691dc7fa643c8b113&token=1681789165&lang=zh_CN#rd

 

看文献学绘图

       近日，武汉大学李家儒老师课题组在国际著名杂志The Plant Journal上发表了题为“Integrated evolutionary pattern analyses reveal multiple origins of steroidal saponins in plants”的研究论文，揭示了植物甾体皂苷起源与进化机制。

 

其中文章中值得对我们分析基因组学比较实用的是图二：基因表达、氨基酸使用频率及基因进化速率的相关性分析。

 

这个图片中的b图就是参与甾体皂苷生物合成的基因kaks选择压力图的一个绘制（我们一般可以绘制一个基因家族不同物种间或者物种内的进化速率分析）

代码实操部分

01代码第一部分

rm(list=ls()) library(ggplot2) library(reshape2) 
data <- read.table("all.ks",header = T,sep="\t") 
data = na.omit(data) 
head(data)

示例文件在生信漫谈交流群，可以直接下载，具体结果如下：

​

p1 <- ggplot(data,aes(x=KaKs ,y=..density.., color = Species, fill=Species)) + geom_histogram(position = "identity" ,alpha = 0.5) + 
geom_density(alpha = 0) + xlim(0, 5) + 
xlab("KaKs value") + theme_classic() + 
#scale_fill_brewer(palette = 'Paired') 
+ theme(legend.title=element_blank(),legend.position = c(0.9,0.9)) pdf(file=paste("Kaks_density.pdf", sep = "."), width = 10, height = 7) 
p1

可以直接得到如下图所示kaks的选择压力图：

​

 

如果你对柱形图不感兴趣，想得到文章类似的图可以改下代码部分，如下所示：

#如果只要线条型而不是柱状图

p2 <- ggplot(data,aes(KaKs,color = Species, fill = Species)) + geom_line(stat="density",alpha=0.8) + 
xlim(0,5) + xlab("KaKs") +theme_classic() + 
theme(axis.title = element_text(size=16),axis.text=element_text(size=16)) pdf(file=paste("newKaks_density.pdf", sep = "."), width = 10, height = 7) 
p2 
dev.off()

 

02代码调整部分

如果小伙伴还想调整主题风格，theme_grey()------灰色背景，不带x、y轴线，带白色网格线等

p1 <- ggplot(data,aes(x=KaKs ,y=..density.., color = Species, fill=Species)) + geom_histogram(position = "identity" ,alpha = 0.5) + 
geom_density(alpha = 0) + xlim(0, 5) +
 xlab("KaKs value") + 
theme_grey()+ 
#scale_fill_brewer(palette = 'Paired') + 
theme(legend.title=element_blank(),legend.position = c(0.9,0.9)) pdf(file=paste("Kaks_density.pdf", sep = "."), width = 10, height = 7) 
p1

theme_bw() 主题-----变色背景、带全方位x、y轴线（上下左右），带灰色网格线。

p1 <- ggplot(data,aes(x=KaKs ,y=..density.., color = Species, fill=Species)) + geom_histogram(position = "identity" ,alpha = 0.5) + 
geom_density(alpha = 0) + 
xlim(0, 5) + xlab("KaKs value") + 
theme_bw()+ 
#scale_fill_brewer(palette = 'Paired') + 
theme(legend.title=element_blank(),legend.position = c(0.9,0.9)) pdf(file=paste("Kaks_density.pdf", sep = "."), width = 10, height = 7) 
p1

 

通过以上步骤是否学会了呢？关注我们，学习更多生信干货，原创不易，请各位多多点赞加转发朋友圈进行分享！

今天就先给大家介绍到这里，希望大家的科研能有所帮助！祝您科研顺利快乐！

​

生信漫谈

生信漫谈，认识生信，学习生信，跨越生信入门路上的障碍，从而利用生信技术解决科研学习路上的绊脚石！