| 查看: 3019 | 回复: 21 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
本地化blast注释后，想从结果中的Subject Seq-id得到Nr-annotation，求大神指导。 已有1人参与
|
|||
|
如题，现在注释结果已经出来，其中Subject Seq-id（也就是比对到的nr数据库中的gi）放进一个txt文件中，如图1。 这时候，我想根据这个txt，把nr数据库（如图2）中，这些gi所代表的基因的名称一起找出来，一对一输入一个excel中。 如图2中gi|67472372|sp|P0A7T7.2|RS18_ECOLI是nr水库中的，它在txt中，想找出它后的RecName: Full=30S ribosomal protein S18 [Escherichia coli K-12]（对这个基因的说明和名字）。  图1.jpg  图2.jpg |
回复此楼» 本帖已获得的红花（最新10朵）
zhouyanli11» 猜你喜欢
工科08-机械专硕-求调剂
已经有3人回复
-
一志愿苏州大学材料工程（085601）专硕有科研经历三项国奖两个实用型专利一项省级立项
已经有9人回复
-
材料工程302分求调剂
已经有8人回复
-
315求调剂
已经有14人回复
-
307分材料专业求调剂
已经有7人回复
-
材料调剂
已经有11人回复
-
262求调剂
已经有6人回复
-
一志愿北京交通大学材料工程总分358求调剂
已经有4人回复
-
一志愿青科085500，初试295分，公共课213分
已经有3人回复
-
304求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 生物学软件介绍及其下载地址【学生物的会很有用】
已经有24人回复
|
大神 结果不对啊 24417280 unknown [Arabidopsis thaliana] 15234745 UDP-D-glucuronate 4-epimerase 1 [Arabidopsis thaliana]gi 15234486 UDP-D-glucuronate 4-epimerase 5 [Arabidopsis thaliana]gi 15293119 putative nucleotide sugar epimerase [Arabidopsis thaliana] 21536982 nucleotide sugar epimerase, putative [Arabidopsis thaliana] 37781356 nematode resistance-like protein [Solanum tuberosum] 而且数量也不对 |
8楼2014-10-21 21:12:41
peterrjp
铁杆木虫 (著名写手)
- 应助: 65 (初中生)
- 金币: 24487.5
- 红花: 16
- 帖子: 2608
- 在线: 67小时
- 虫号: 395640
- 注册: 2007-06-08
- 性别: GG
- 专业: 微生物生态学
2楼2014-10-21 18:05:07
3楼2014-10-21 19:22:07
peterrjp
铁杆木虫 (著名写手)
- 应助: 65 (初中生)
- 金币: 24487.5
- 红花: 16
- 帖子: 2608
- 在线: 67小时
- 虫号: 395640
- 注册: 2007-06-08
- 性别: GG
- 专业: 微生物生态学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
大爷给跪了: 金币+20, ★★★★★最佳答案 2014-10-21 20:05:45
大爷给跪了: 金币+20, ★★★★★最佳答案 2014-10-21 20:05:45
|
代码如下，请粘贴到空白文档，保存成.pl文件 用法：假设你的第一个文件是11111111.txt（你的图1）, 第二个文件是nr.txt（你的图2），双击pl脚本，产生的include.txt就是你要的结果，可以用excel打开，自动会分成两列，第一列gi编号，第二列是编码蛋白名称 #!/usr/bin/perl my $list_file="11111111.txt"; # 输入文件1 my $tb_file="nr.txt"; # 输入文件2 my ($ll,%gi1,@f); open INCLUDE, ">include.txt" || die "Can't open include.txt"; open TMP, $list_file || die "Can't open $list_file"; while($ll = <TMP>  {@f=split/\|/,$ll; $gi1{$f[1]} = 1; } close(TMP); open(TMP, $tb_file) || die; while($ll = <TMP> {chomp $ll; @f=split/\|/,$ll; if ($gi1{$f[1]}){ print INCLUDE "$f[1]\t$f[4]\n"; } } close TMP; close INCLUDE; |
» 本帖已获得的红花（最新10朵）
4楼2014-10-21 19:40:34
