使用R获取DNA的反向互补序列

    前面跟大家聊了一下☞R如何reverse一个字符串，其实这个只能实现反向，那怎么样才能实现互补呢？其实获取DNA的反向互补序列这个事情本身并不是很难。有很多网页工具都能够实现，我随便在网上搜了一下就找到3个。我这里只是想结合R语言来解决我们生物信息里面的一些小问题，帮助大家理解R。我们还是用上次的DNA序列来举例

DNA='ATTTAGCGATGCGGCTATGCTATCGGA'

如果大家只是想解决这个问题，可以使用下面提到的三个网页工具

1.https://www.bioinformatics.org/sms/rev_comp.html

将你的序列贴进对话框，点击SUBMIT就能得到方向互补序列

2.https://arep.med.harvard.edu/labgc/adnan/projects/Utilities/revcomp.html

你会发现这个工具不仅可以得到反向互补序列，还可以得到反向序列，互补序列，看你自己的需求是什么。将你的序列贴进对话框，点击reverse complement就能得到反向互补序列

3.http://www.cellbiol.com/cgi-bin/complement/rev_comp.cgi

将你的序列贴进对话框，点击Do the Job!就可以得到反向互补序列了

接下来我们用R语言来实现这个功能，我还是给大家介绍两种不同的方法。一种是比较原始一点的方法。第二种是站在前人的肩膀上，使用已有的R包来实现。

1.使用strsplit，rev，paste等R自带的函数来实现

DNA='ATTTAGCGATGCGGCTATGCTATCGGA'#定义互补配对的表from=c("A","T","G","C","a","g","t","c","N","n")to =c("T","A","C","G","t","c","a","g","N","n")#得到带有名字的向量，名字是原始碱基，值是互补碱基names(to)=from
#字符串拆分成字符串向量sep_DNA=unlist(strsplit(DNA,""))#获取互补序列complementary_DNA=to[sep_DNA]#获取反向序列rev_complementary=rev(complementary_DNA)#将字符串向量粘贴成字符串rev_complementary_DNA=paste(rev_complementary,collapse = "")#输出反向互补序列rev_complementary_DNA

2.使用mgsub包中的mgsub函数

#安装mgsub和stringiBiocManager::install("mgsub")BiocManager::install("stringi")#加载mgsub和stringilibrary(mgsub)library(stringi)DNA='ATTTAGCGATGCGGCTATGCTATCGGA'#使用mgsub获取互补序列complementary_DNA=mgsub(DNA, #原始序列 c("A","T","G","C","a","g","t","c","N","n"), #原始碱基 c("T","A","C","G","t","c","a","g","N","n") #互补碱基 )#使用stri_reverse获取反向序列rev_complementary_DNA=stri_reverse(complementary_DNA)#输出反向互补序列rev_complementary_DNA

参考资料：R如何reverse一个字符串

为了方便大家交流学习，共同进步，我特地创建了微信交流群