
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))
网友评论