data <- read.delim('mouse_gc.xls', row.names = 1, sep = '\t', check.names = FALSE) col_names <- colnames(data) row_names <- rownames(data) data <- as.matrix(data) b <- apply(data, 2, function(y) rank(y) / length(y)) write.table(b, file="gene_rank_score.xls", sep="\t", quote=F, row.names=T, col.names=T) #gene-rank没有改变样本间的相关性