修改stringtie、ballgown 結(jié)果中部分gene_id為ref_gene_id

問題:stringtie組裝轉(zhuǎn)錄本后會改變原本參考基因組注釋文件中的gene_id

  1. stringtie 組裝匠抗、merge的stringtie_merged.gtf注釋文件中的gene id 與ballgown生成的gene id 相同

  2. stringtie 組裝、merge的stringtie_merged.gtf注釋文件中的gene id 與prepDE.py生成的counts矩陣的gene id 相同

  3. stringtie會將部分參考基因組gtf注釋文件的gene_id重命名為MSTRG污抬,并在組裝的注釋文件中保留為ref_gene_id

思路:

如果想恢復(fù)ballgown中的gene_id 或counts矩陣中的gene_id為ref_gene_id,將stringtie merge的注釋文件中的gene_id印机、ref_gene_id提出,在R中使用merge函數(shù)進行合并射赛,將ref_gene_id 中的空白單元格賦值為NA(空白單元格即為stringtie新組裝的轉(zhuǎn)錄本基因)多柑,再用id列中的MSTRG基因名將ref_gene_id中的NA替換。

實現(xiàn):

1)awk提取stringtie組裝的stringtie_merged.gtf注釋文件中的gene_id和ref_gene_id咒劲,sort將首列排序顷蟆,并保留首列g(shù)ene_id去重復(fù)之后的行腐魂。

cat stringtie_merged.gtf | grep "gene_id"| awk '{if($3=="transcript")print}' |awk -F "\t" '{print $9}' | awk -F ";" '{print$1,$3}' |awk '{print $2"\t"$4}'|sed 's/\"http://g' | sort -k 1,1 -rk 2,2 -V | sort -uk1,1 -V | less > gene_id_ref_gene_id.txt

還可以加上染色體位置

cat stringtie_merged.gtf | awk '{if($3=="transcript")print}' | awk '{print $1"\t"$4"\t"$5}' | less > gene_position.txt
cat stringtie_merged.gtf | awk '{if($3=="transcript")print}' |awk -F "\t" '{print $9}' | awk -F ";" '{print$1,$3}' |awk '{print $2"\t"$4}'|sed 's/\"http://g' | less > gene_id.txt
paste -d "\t" gene_position.txt gene_id.txt | awk -F "\t" '{print $4"\t"$5"\t"$1"\t"$2"\t"$3}' | sort -t $'\t' -k1,1 -rk2,2 -V | sort -t $'\t' -uk1,1 -V | less > gene_id_ref_gene_id.txt

2)R合并results_gene的dataframe和gene_id_ref_gene_id.txt


results_gene = stattest(bg, feature="gene",covariate="condition", getFC=TRUE, meas="FPKM")

genes <- read.table("gene_id_ref_gene_id.txt",header = F,sep = "\t")

names(genes) = c("gene_id","ref_gene_id")

results_gene_1 <- merge(results_gene,genes,by.x = "id",by.y = "gene_id",all = TRUE )

results_gene_1$ref_gene_id[results_gene_1$ref_gene_id == ""] <- "NA"

library("tidyverse")

results_gene_1 <- results_gene_1 %>%
  mutate(ref_gene_id = if_else(ref_gene_id == "NA", id, ref_gene_id))

results_gene_1 <- results_gene_1 %>%
  select(feature,ref_gene_id,fc,pval,qval)

names(results_gene_1) = c("feature","id","fc","pval","qval")

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末蛔屹,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子兔毒,更是在濱河造成了極大的恐慌,老刑警劉巖育叁,帶你破解...
    沈念sama閱讀 206,013評論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異豪嗽,居然都是意外死亡谴蔑,警方通過查閱死者的電腦和手機龟梦,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,205評論 2 382
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來钦睡,“玉大人躁倒,你說我怎么就攤上這事洒琢。” “怎么了纬凤?”我有些...
    開封第一講書人閱讀 152,370評論 0 342
  • 文/不壞的土叔 我叫張陵撩嚼,是天一觀的道長。 經(jīng)常有香客問我完丽,道長恋技,這世上最難降的妖魔是什么逻族? 我笑而不...
    開封第一講書人閱讀 55,168評論 1 278
  • 正文 為了忘掉前任聘鳞,我火速辦了婚禮薄辅,結(jié)果婚禮上抠璃,老公的妹妹穿的比我還像新娘。我一直安慰自己搏嗡,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 64,153評論 5 371
  • 文/花漫 我一把揭開白布旧乞。 她就那樣靜靜地躺著磅氨,像睡著了一般。 火紅的嫁衣襯著肌膚如雪烦租。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 48,954評論 1 283
  • 那天,我揣著相機與錄音痴颊,去河邊找鬼。 笑死蠢棱,一個胖子當(dāng)著我的面吹牛甩栈,可吹牛的內(nèi)容都是我干的糕再。 我是一名探鬼主播,決...
    沈念sama閱讀 38,271評論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼殴蹄,長吁一口氣:“原來是場噩夢啊……” “哼猾担!你這毒婦竟也來了袭灯?” 一聲冷哼從身側(cè)響起绑嘹,我...
    開封第一講書人閱讀 36,916評論 0 259
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎姨丈,沒想到半個月后擅腰,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體蟋恬,經(jīng)...
    沈念sama閱讀 43,382評論 1 300
  • 正文 獨居荒郊野嶺守林人離奇死亡筋现,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 35,877評論 2 323
  • 正文 我和宋清朗相戀三年箱歧,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片呀邢。...
    茶點故事閱讀 37,989評論 1 333
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖申眼,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情括尸,我是刑警寧澤病毡,帶...
    沈念sama閱讀 33,624評論 4 322
  • 正文 年R本政府宣布,位于F島的核電站,受9級特大地震影響淌喻,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜裸删,卻給世界環(huán)境...
    茶點故事閱讀 39,209評論 3 307
  • 文/蒙蒙 一阵赠、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧豌注,春花似錦、人聲如沸轧铁。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,199評論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至童本,卻和暖如春脸候,著一層夾襖步出監(jiān)牢的瞬間穷娱,已是汗流浹背运沦。 一陣腳步聲響...
    開封第一講書人閱讀 31,418評論 1 260
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留嫁盲,地道東北人。 一個月前我還...
    沈念sama閱讀 45,401評論 2 352
  • 正文 我出身青樓羞秤,卻偏偏與公主長得像左敌,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子矫限,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 42,700評論 2 345

推薦閱讀更多精彩內(nèi)容