批量文件读取合并

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))