ids$median=apply(dat,1,median)
ids=ids[order(ids$symbol,ids$median,decreasing = T),]
ids=ids[!duplicated(ids$symbol),]
dat=dat[ids$probe_id,]
rownames(dat)=ids$symbol
dat[1:4,1:4]
#boxplot(las=2,dat)
boxplot(dat,las=2)
报错如下
> boxplot(dat,las=2)
Error in x[floor(d)] + x[ceiling(d)] :
non-numeric argument to binary operator
ids=ids[order(ids$symbol,ids$median,decreasing = T),]
ids=ids[!duplicated(ids$symbol),]
dat=dat[ids$probe_id,]
rownames(dat)=ids$symbol
dat[1:4,1:4]
#boxplot(las=2,dat)
boxplot(dat,las=2)
报错如下
> boxplot(dat,las=2)
Error in x[floor(d)] + x[ceiling(d)] :
non-numeric argument to binary operator
