miRNA和mRNA預(yù)測(cè)

# mirna和mrna互相預(yù)測(cè)
# BiocManager::install("multiMiR")
library(multiMiR)
# 開(kāi)始計(jì)算永票，全程聯(lián)網(wǎng)纯出，mirna,target決定預(yù)測(cè)方向累颂，空值時(shí)作為目標(biāo)
example3 <- get_multimir(org = "hsa",
                        mirna = "hsa-miR-xxx-5p",          # 你的miRNA  
                        # target = "XXXX",                      #  你的mRNA
                        table = "predicted",
                        predicted.cutoff = 35,
                        predicted.cutoff.type = "p",
                        predicted.site = "all")
# 提取結(jié)果
example3_result <- example3@data
example3_result

# 查看各個(gè)數(shù)據(jù)庫(kù)結(jié)果數(shù)
example3@data$database %>% table()
# 畫(huà)圖
library(VennDiagram)
library(tidyverse)
db <- unique(example3_result$database)
db
# 代碼優(yōu)化-------------------------------------------
# 1、每個(gè)數(shù)據(jù)庫(kù)得結(jié)果分開(kāi)谣殊，放入一個(gè)list
res_single_db <- db %>% lapply(function(x){example3_result %>% filter(database == x)})
names(res_single_db) <- db
res_single_db
# 2拂共、每個(gè)數(shù)據(jù)庫(kù)的預(yù)測(cè)目標(biāo)分開(kāi)，生成一個(gè)list
to_venn <- res_single_db %>% lapply(function(x){
 unique(x$target_symbol)
})
names(to_venn) <- db
to_venn
# 3姻几、提取想要使用的目標(biāo)向量宜狐，此步不能省略
venn_list <-list(
 diana_microt = to_venn$diana_microt,
 elmmo        = to_venn$elmmo,
 # microcosm  = to_venn$microcosm,
 miranda      = to_venn$miranda,
 # mirdb      = to_venn$mirdb,
 # pictar     = to_venn$pictar,
 pita         = to_venn$pita,
 targetscan   = to_venn$targetscan
)

# 4、畫(huà)圖蛇捌，不能每個(gè)庫(kù)的結(jié)果都用抚恒，可能沒(méi)有結(jié)果
veenplot1 <- venn.diagram(
 x = veen_list,
 filename = ".\\plots\\venn1.pdf",
 # disable.logging = TRUE,
 ext.text = TRUE,
 ext.line.lwd = 2,
 ext.dist = -0.15,
 ext.length = 0.9,
 ext.pos = -4,
 # inverted = TRUE,
 cex = 1,
 cat.cex = 1,
 # rotation.degree = 45,
 main = "Complex Venn Diagram",
 # sub = "Featuring: rotation and external lines",
 main.cex = 1,
 sub.cex = 0.9
)


# 5、用循環(huán)求交集络拌，代碼來(lái)自知乎俭驮，解螺旋
for (i in 1:length(veen_list)){
 if(i==1){
   intergenes <- veen_list[[1]]
 }
 else{
   intergenes <- intersect(intergenes,veen_list[[i]])
 }
}
# 查看結(jié)果
intergenes
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
禁止轉(zhuǎn)載，如需轉(zhuǎn)載請(qǐng)通過(guò)簡(jiǎn)信或評(píng)論聯(lián)系作者春贸。
  • 人面猴
    序言：七十年代末混萝，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子萍恕，更是在濱河造成了極大的恐慌譬圣，老刑警劉巖，帶你破解...
    沈念sama閱讀 212,383評(píng)論 6贊 493
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件雄坪，死亡現(xiàn)場(chǎng)離奇詭異，居然都是意外死亡屯蹦，警方通過(guò)查閱死者的電腦和手機(jī)维哈，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,522評(píng)論 3贊 385
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)登澜，“玉大人阔挠，你說(shuō)我怎么就攤上這事∧匀洌” “怎么了购撼？”我有些...
    開(kāi)封第一講書(shū)人閱讀 157,852評(píng)論 0贊 348
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵，是天一觀的道長(zhǎng)谴仙。 經(jīng)常有香客問(wèn)我迂求，道長(zhǎng)，這世上最難降的妖魔是什么晃跺？ 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 56,621評(píng)論 1贊 284
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任揩局，我火速辦了婚禮，結(jié)果婚禮上掀虎，老公的妹妹穿的比我還像新娘凌盯。我一直安慰自己付枫，他們只是感情好，可當(dāng)我...
    茶點(diǎn)故事閱讀 65,741評(píng)論 6贊 386
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開(kāi)白布驰怎。 她就那樣靜靜地躺著阐滩，像睡著了一般。 火紅的嫁衣襯著肌膚如雪县忌。 梳的紋絲不亂的頭發(fā)上掂榔，一...
    開(kāi)封第一講書(shū)人閱讀 49,929評(píng)論 1贊 290
  • 城市分裂傳說(shuō)
    那天，我揣著相機(jī)與錄音芹枷，去河邊找鬼衅疙。 笑死，一個(gè)胖子當(dāng)著我的面吹牛鸳慈，可吹牛的內(nèi)容都是我干的饱溢。 我是一名探鬼主播，決...
    沈念sama閱讀 39,076評(píng)論 3贊 410
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開(kāi)眼走芋，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼绩郎！你這毒婦竟也來(lái)了？” 一聲冷哼從身側(cè)響起翁逞，我...
    開(kāi)封第一講書(shū)人閱讀 37,803評(píng)論 0贊 268
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤肋杖，失蹤者是張志新（化名）和其女友劉穎，沒(méi)想到半個(gè)月后挖函，有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體状植，經(jīng)...
    沈念sama閱讀 44,265評(píng)論 1贊 303
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,582評(píng)論 2贊 327
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年怨喘，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了津畸。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,716評(píng)論 1贊 341
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡必怜，死狀恐怖肉拓，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情梳庆，我是刑警寧澤暖途，帶...
    沈念sama閱讀 34,395評(píng)論 4贊 333
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站膏执，受9級(jí)特大地震影響驻售，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜更米，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 40,039評(píng)論 3贊 316
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一芋浮、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧，春花似錦纸巷、人聲如沸镇草。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,798評(píng)論 0贊 21
  • 一樁弒父案瘤旨，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)梯啤。三九已至，卻和暖如春存哲，著一層夾襖步出監(jiān)牢的瞬間因宇，已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,027評(píng)論 1贊 266
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工祟偷， 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留察滑，地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 46,488評(píng)論 2贊 361
  • 代替公主和親
    正文 我出身青樓修肠，卻偏偏與公主長(zhǎng)得像贺辰，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子嵌施，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,612評(píng)論 2贊 350

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