生信软件10 - DNA/RNA/蛋白多序列比对图R包ggmsa

最新推荐文章于 2024-07-18 13:45:42 发布

生信与基因组学

最新推荐文章于 2024-07-18 13:45:42 发布

阅读量686

点赞数 9

分类专栏：生物信息学软件文章标签： r语言 java 数据库

本文链接：https://blog.csdn.net/LittleComputerRobot/article/details/135231288

版权

生物信息学软件专栏收录该内容

26 篇文章 4 订阅

订阅专栏

R包安装

BiocManager::install("ggplot2")
BiocManager::install("ggmsa")

DNA多序列比对图

# 导入内置核酸序列
nt_sequences <- system.file("extdata", "LeaderRepeat_All.fa", package = "ggmsa")

ggmsa(nt_sequences, color="Chemistry_AA", font = "DroidSansMono", char_width = 0.5, seq_name = TRUE)

DNA多序列比对图

RNA多序列比对图

miRNA_sequences <- system.file("extdata", "seedSample.fa", package = "ggmsa")

ggmsa(miRNA_sequences, font = 'DroidSansMono',color = "Chemistry_NT", none_bg = TRUE) +
  geom_seed(seed = "GAGGUAG", star = FALSE)ggmsa(miRNA_sequences, font = 'DroidSansMono',color = "Chemistry_NT") +
  geom_seed(seed = "GAGGUAG", star = TRUE)

RNA多序列比对图

蛋白质多序列比对图

protein_sequences <- system.file("extdata", "sample.fasta", package = "ggmsa")

ggmsa(protein_sequences, 221, 280, seq_name = TRUE, char_width = 0.5) + 
  geom_seqlogo(color = "Chemistry_AA") + geom_msaBar()

蛋白质多序列比对图

基因组变异图

fas <- list.files(system.file("extdata", "GVariation", package="ggmsa"), pattern="fas", full.names=TRUE)
x <- seqdiff(fas[1], reference=1)

plot(
  x,
  width = 50,
  title = "auto",
  xlab = "Nucleotide Position",
  by = "bar",
  fill = "firebrick",
  colors = c(A = "#ff6d6d", C = "#769dcc", G = "#f2be3c", T = "#74ce98"),
  xlim = NULL
)