使用seqLogo可视化motif

欢迎关注”生信修炼手册”!

seqLogo是一个bioconductor上的R包，专门用于DNA序列的motif可视化，网址如下

https://www.bioconductor.org/packages/release/bioc/html/seqLogo.html

因为功能的单一性，所以其用法也特别的简单，只需要输入motif对应的PPM矩阵就可以了，下面通过一个实际例子来看下

上图为一个motif的PFM矩阵，只需要通过以下几个步骤就可以得到对应的sequence logo。

1. 读取PFM矩阵

将PFM矩阵保存在一个文件pfm.txt中，内容如下

注意PFM矩阵中规定碱基顺序为ACGT, 不能任意调换碱基的顺序。通过R语言来读取，代码如下

data <- read.table("pfm.txt", header = F, sep = "\t", row.names = 1)

2. 生成PPM矩阵

PPM矩阵就是将PFM矩阵中的频数转化成频率，除以每列的总和就可以了, 代码如下

ppm <- sapply(1:ncol(data), function(t){ data[[t]] / sum(data[[t]]) })

ppm的内容如下

因为行的顺序统一为ACGT, 所以我们不需要设置行名称。

3. 绘图

基本用法如下

p <- makePWM(ppm)
seqLogo(p)

输出结果示意如下

相比其他工具，这个R包的功能较为单一，存在无法调整配色方案等问题，但是作为一个可视化工具，其足够简单，已经能满足基本要求。

·end·

—如果喜欢，快分享给你的朋友们吧—

扫描关注微信号，更多精彩内容等着你！