Open awake0044 opened 5 years ago
`代码如下,R中结果显示null device
sampleTree <- hclust(dist(datExpr0),method="average") pdf("01.samples_cluster_tree.pdf",width=25,height=8) par(mar=c(0,4,2,0)) plot(sampleTree,main="Sample clustering to detect outliers",sub="",xlab="") cutHeight <- 15 abline(h=cutHeight,col="red") dev.off() null device
sampleTree <- hclust(dist(datExpr0),method="average") pdf("01.samples_cluster_tree.pdf",width=25,height=8) par(mar=c(0,4,2,0)) plot(sampleTree,main="Sample clustering to detect outliers",sub="",xlab="") cutHeight <- 15 abline(h=cutHeight,col="red") dev.off()
绘图结果保存为了PDF文件
`代码如下,R中结果显示null device