批量文件读取合并
2021-09-23 本文已影响0人
一路向前_莫问前程_前程似锦
image.png
library(rio)
library(stringr)
data_exp <- list.files(pattern = 'pancan_dist.csv')%>%
lapply(import)%>%
purrr::reduce(inner_join,by='sample')%>%
select(contains('AURKA')|contains('CCNB1')|
contains('CDC25C')|contains('CENPE')|
contains('HMMR')|c(2,3))
