###确保文件名都是按照顺序（order）排列的
length(x)
x[[1]]
n=length(x)
id=NULL
sample_id=NULL
for (i in 1:n) {
id[i]=x[[i]]$submitter_id
sample_id[i]=x[[i]]$associated_entities[[1]]$entity_submitter_id
}
exchangename=data.frame(id,sample_id)
id=substr(id,1,8)
sample_id=substr(sample_id,1,16)
exchangename=exchangename[order(exchangename$id),]
colnames(sample_merge20)=exchangename$sample_id
网友评论