这种方法比较麻烦,也有一定的修改
mutidata2<-read.table("COLON_Methy_Expression.txt",header = FALSE)
data2<-mutidata2[-1,-1]
rownames(data2)<-mutidata2[1,-1]
colnames(data2)<-mutidata2[-1,1]
data2<-apply(data2,c(1,2),as.numeric)
is.numeric(data2)
简单的方法是:
mutidata2<-read.table("COLON_Methy_Expression.txt",header = TRUE)
mutidata2 <- mutidata2[!duplicated(mutidata2[,1]), ]
#data2<-mutidata2[-1,-1]
#data2<-apply(data2,c(1,2),as.numeric)
rownames(mutidata2)<-mutidata2[-1,1]
mutidata2<-mutidata2[,-1]
但这里要注意,第一行的行名角上位置应该有值,否则提示 Error in `row.names<-.data.frame`(`*tmp*`, value = value) :
'row.names'的长度不对