d2<-gsub("[^[:alnum:]///' ]", "-", colnames(tcga_expr))##将列名中所有的任意字符变成“-”
d3<-rbind(d2,tcga_expr)
colnames(d3)=d3[1,]
d3<-d3[-1,]
View(d3[1:10,])
write.table(d3,file =".d3.txt",sep="\t",quote = F)
d3 <- read.table('.d3.txt', head=T, as.is=TRUE, quote="", comment.char="#", sep="\t",colClasses=c("character",rep("numeric",423)))##指定列的类型
##比如基因原始表达值小于10，超过25%样本就把它剔除掉；Exp_miRNA0为此操作进行完后的表达谱
Exp_miRNA0=Exp_miRNA[which(apply(Exp_miRNA,1,function(x){return(sum(x>10))})>ncol(Exp_miRNA)*0.25),]
##row.names= 1,第一列变行名
##check.names=FALSE，读入后杠不会变成点
Exp_miRNA <- read.table("./Merge_miRNA_pre_RPM.txt",header = T,row.names= 1,stringsAsFactors = F,sep = "\t",check.names=FALSE)
