随性、随时、随心
点点滴滴的生活记录
在寻找诗和远方的路上
一手机、一相机、一电脑、一本书、一个人、一世界、一生
@ since 2012
Attitude Determines Altitude!
合并两个包含同样行名(rowname相同或者某一列包含相同内容)的数据集
直接上code,折腾了快一下午
library(readr)
library(tidyverse)
dfov <- read_csv("Downloads/xxx/OEC GTEx TCGA/Ovary_exp_normalpluscancer_all_withID.csv")
hippogene <- read_csv("Downloads/xxx/hippogene.csv")
dfov <- data.frame(dfov)
## 可省略
hippogene <- data.frame(hippogene)
##可省略
OEChippo <- dfov[dfov$SYMBOL%in%hippogene$Symbol == TRUE,]
真心不容易,还是做R语言少了,每次提取合并一些大点的数据都要折腾好长时间。希望以后能提高效率!
参考:
https://blog.csdn.net/weixin_46623488/article/details/120430945?utm_medium=distribute.pc_aggpage_search_result.none-task-blog-2~aggregatepage~first_rank_ecpm_v1~rank_v31_ecpm-1-120430945.pc_agg_new_rank&utm_term=r%E6%98%BE%E7%A4%BA%E9%95%BF%E7%9A%84%E5%AF%B9%E8%B1%A1%E9%95%BF%E5%BA%A6%E4%B8%8D%E6%98%AF%E7%9F%AD%E7%9A%84%E5%AF%B9%E8%B1%A1%E9%95%BF%E5%BA%A6%E7%9A%84%E6%95%B4%E5%80%8D%E6%95%B0&spm=1000.2123.3001.4430