R 绘制树状图

我想通过

grid.arrange

函数合并聚类结果中的两个树状图。我使用的代码是

d.a <- dist(df.a, method = "euclidean")
# Hierarchical clustering 
res.hc.a <- hclust(d.a, method = "ward.D2" )

d.b <- dist(df.b, method = "euclidean")
# Hierarchical clustering 
res.hc.b <- hclust(d.b, method = "ward.D2" )

p1=plot(res.hc.a, cex = 0.75,main="a")
rect.hclust(res.hc.a, k = 6, border = 2:7)

p2=plot(res.hc.b, cex = 0.75,main="b")
rect.hclust(res.hc.b, k = 7, border = 2:8)

grid.arrange(p1, p2, ncol = 2, top  = "Dendrograms")

---

问题是<代码>网格。Suffe函数不考虑每个绘图代码的第二行。我不知道如何解决这个问题。我遇到的第二个问题是，我想将每个树状图垂直显示，而不是水平显示。你知道吗？

我不认为grid.arrange可以处理普通的绘图。它可以与ggplot（）和朋友一起使用。那么我如何才能做到这一点呢@用

par（mfrow=c（1,2））

进行otttoometry绘图。这将在绘图窗口中形成1x2网格。但是，我不太确定绘制hclust对象时会得到什么。虽然ggplot相关例程通常以gg开头，但它可能会调用ggplot。我认为grid.arrange无法处理普通绘图。它可以与ggplot（）和朋友一起使用。那么我如何才能做到这一点呢@用

par（mfrow=c（1,2））

进行otttoometry绘图。这将在绘图窗口中形成1x2网格。但是，我不太确定绘制hclust对象时会得到什么。虽然ggplot相关例程通常以gg开头，但它可能会调用ggplot。

Error in gList(list(wrapvp = list(x = 0.5, y = 0.5, width = 1, height = 1,  : 
  only 'grobs' allowed in "gList"