R图（hclust）和顶部截断的clusplot标题

我遇到了以下类似问题：

我尝试了两篇文章中提出的解决方案

用于绘制我的hclust的代码：

plot(hclust.train, hang = -1)

下面是我的hclust绘图的样子：

正如上面提到的第一篇文章所建议的，我尝试了：

par(oma=c(0,0,2,0))

添加边框填充；但是，带有边框的绘图如下所示：

这只是一个简单的截取版本，但移动了一点

下面是我的clusplot图的样子（同样的问题）：

加上边界：

我还尝试使用参数“mar=c（0,0,2,0）”，正如在开头提到的第二篇文章中所建议的，但结果与添加边框填充相同

感谢您的帮助

编辑： 感谢Ben Bolker提供了一个简单快速的解决方案。 使用他建议的代码后：

par(xpd=NA,oma=c(0,0,2,0))

我得到了以下改进版本：

---

我的最后一个问题是，如何摆脱穿过标题的边界线，或者将标题位置移到该边界线之上？谢谢大家!

您没有给出一个可复制的示例，但如果我将边距设置为零，我可以复制这个示例；我可以使用

par（xpd=NA）

设置外部边距没有帮助：

par(mar=c(0,0,0,0),oma=c(0,0,2,0)) 
plot(hc)

设置

par（xpd=NA）

有助于：

par(mar=c(0,0,0,0),xpd=NA)
plot(hc)

---

如果我添加

box（）

我会得到一条穿过标题的边框线。最好不要将页边距设置为零，或者设置

par（mar=c（0,0,2,0））

以确保标题在顶部有空间，或者使用

par（oma=c（0,0,2,0））

然后使用

mtext（）

手动添加标题。

没有可复制的示例很难说。试试

par（xpd=NA，oma=c（0,0,2,0））

？你好@BenBolker，非常感谢你提出的解决方案！我已经编辑了我的问题以纳入你的建议，但我还有一些关于清理的问题。你也能帮忙吗？非常感谢。非常感谢你！它完美地解决了我的问题：）

par(mar=c(0,0,0,0),oma=c(0,0,2,0)) 
plot(hc)

par(mar=c(0,0,0,0),xpd=NA)
plot(hc)