在R中是否有相当于MATLAB的'hold on'?我尝试绘制热图然后绘制树状图,但第二个图的显示删除了第一个图中的一个。我尝试使用par(mfrow)
,但它不会改变结果。
代码示例:
hc <- hclust(dist_(as.matrix(data)), method="complete")
plot(as.dendrogram(hc),horiz=T,new=TRUE)
heatmap(as.matrix(data), col=heat.colors(length(br)), hclust = hcl_, dist=d_,
breaks=c(br[1],br), scale="none", Rowv=Rowv, Colv=Colv)
答案 0 :(得分:3)
我运行以下代码时(注意我猜你的dist_
是一个错字),
foo<- matrix(runif(400),20)
hc <- hclust(dist(foo), method="complete")
plot(as.dendrogram(hc),horiz=T)
par(new=TRUE)
heatmap(as.matrix(foo), col=heat.colors(10))
我得到了两个图,虽然热图(及其内置树状图)严重向左压扁。据推测,可以通过注意指定x轴限制来修复。