批量文件读取合并

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))
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容