[英]Extract information from vector into another data frame
Mature_Hep
中的數據與Recurrence
的數據匹配。 我想通過將Recurrence
的信息與變量Var2
匹配,將其傳遞給matrix_cpm_spike_norm_mature_liver.m
的一列。 請參閱我的輸出示例。
> colnames(Mature_Hep)
[1] "Sa TxHep 092" "Sa TxHep 112" "Sa TxHep 121" "Sa TxHep 164" "Sb TxHep 014" "Sc TxHep 018" "Sb TxHep 082"
[8] "Sa TxHep 084" "Sa MM-7" "Sa TxHep 086" "Sa TxHep 088" "Sa TxHep 094" "Sa TxHep 096" "Sa TxHep 102"
[15] "Sa TxHep 113" "Sa TxHep 120" "Sa TxHep 134" "Sa Tx Hep 140 " "Sa TxHep 144" "Sc D-10" "Sa TxHep 145"
[22] "Sa TxHep 146" "Sa TxHep 157" "Sc TxHep 158" "Sa TxHep 161" "Sa TxHep 176" "Sc TxHep 185" "Sa TxHep 186"
[29] "Sc TxHep 192" "Sa TxHep 201" "Sa S-26" "Sa TxHep 204" "Sb TxHep 215" "Sb TxHep 236" "Sa CD-21"
[36] "Sa MT-27" "Sb MP-32" "Sa GD-38" "Sc CG-39" "Sc-DG-45" "Sc PC-46" "Sa VS-29"
[43] "Sb 1018" "Sb 1065" "Sb 1068" "Sb 1104" "Sd 1167" "Sc 1196" "Sb 1222"
[50] "Sb 1237" "Sb 1241" "Sc 1302" "Sa BF-33" "Sb 1304" "Sb 1322" "Sc 1372"
[57] "Sa 1474" "Sc 1532" "Sd 1540" "Sb 1588" "Sa 1604" "Sc 1743" "Sb 1808"
[64] "Sc TxHep 015" "Sa 1809" "Sd 1859" "Sb 1894" "Sb 2218" "Sb 2239" "Sa HEP 014"
[71] "Sb HEP 015" "Sa HEP 018" "Sb HEP 020" "Sa TxHep 080" "Sa HEP 045" "Sa TxHep 090" "Sa TxHep 091"
>
> Recurrence
[1] Recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence
[9] Recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence
[17] Recurrence No recurrence No recurrence Recurrence No recurrence No recurrence No recurrence No recurrence
[25] No recurrence No recurrence Recurrence No recurrence No recurrence Recurrence Recurrence No recurrence
[33] No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence No recurrence
[41] No recurrence No recurrence Recurrence Recurrence Recurrence No recurrence Recurrence Recurrence
[49] Recurrence Recurrence No recurrence No recurrence Recurrence No recurrence Recurrence No recurrence
[57] Recurrence Recurrence No recurrence Recurrence No recurrence Recurrence Recurrence No recurrence
[65] No recurrence No recurrence Recurrence Recurrence No recurrence No recurrence No recurrence No recurrence
[73] No recurrence Recurrence No recurrence No recurrence No recurrence
Levels: No recurrence Recurrence
> head(matrix_cpm_spike_norm_mature_liver.m)
Var1 Var2 value
1 hsa-let-7a-5p Sa TxHep 092 12.60482
2 hsa-let-7b-5p Sa TxHep 092 10.89667
3 hsa-let-7f-5p Sa TxHep 092 13.50249
4 hsa-let-7g-5p Sa TxHep 092 10.55820
5 hsa-let-7i-5p Sa TxHep 092 12.03462
6 hsa-miR-101-3p Sa TxHep 092 10.37932
輸出:
> head(matrix_cpm_spike_norm_mature_liver.m)
Var1 Var2 value Recurrence_Status
1 hsa-let-7a-5p Sa TxHep 092 12.60482 Recurrence
2 hsa-let-7b-5p Sa TxHep 092 10.89667 Recurrence
3 hsa-let-7f-5p Sa TxHep 092 13.50249 Recurrence
4 hsa-let-7g-5p Sa TxHep 092 10.55820 Recurrence
5 hsa-let-7i-5p Sa TxHep 092 12.03462 Recurrence
6 hsa-miR-101-3p Sa TxHep 092 10.37932 Recurrence
這樣行嗎?
namevector <- colnames(Mature_Hep)[which(Reccurance == "Recurrance")]
namevector2 <- colnames(Mature_Hep)[which(Reccurance == "No recurrance")]
shortm <- matrix_cpm_spike_norm_mature_liver.m
shortm$Recurrence_Status <- NA
shortm$Recurrence_Status[(shortm$var2 %in% namevector)] <- "Recurrance"
shortm$Recurrence_Status[(shortm$var2 %in% namevector2)] <- "No recurrance"
它提取與Recurrance ==“ Recurrance”和Recurrence ==“ No recurrance”相關聯的字符串名稱,並基於這些字符串的匹配在新矩陣中使用%in%創建一個變量。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.