R语言绘制hclust聚类树时如何向上调整x轴标题titlex位置

plot.hclust()是base R内置的层次聚类绘图函数，默认设置下x轴标题预留的底部边距偏大，就会出现标题距离图形主体过远、位置靠下的问题，有两种常用调整方案：

方法1：调整绘图底部边距（快速生效） #

通过par()函数修改绘图边距参数，缩小底部留白即可让x轴标题整体上移。mar参数的四个值依次对应下、左、上、右四个方向的留白宽度，默认底部留白为5.1，调小到3左右即可达到常规合适的位置：

data(USArrests)
titlex <- dist(scale(USArrests), method = "euclidean")
hc <- hclust(titlex, method = "ward.D2")

# 调整边距，缩小底部留白
par(mar = c(3.2,4,4,2)+0.1)
# 绘图时可直接自定义x轴标题内容
plot(hc, xlab = "titlex")

方法2：手动添加标题精准控制位置（自由度最高） #

如果需要更精细地调整标题位置，可以先关闭默认绘制的x轴标题，再通过title()函数手动添加，用line参数精准控制标题和绘图区的距离：line值越小，标题越靠近绘图主体，可根据实际显示效果在0.5~2之间微调：

data(USArrests)
titlex <- dist(scale(USArrests), method = "euclidean")
hc <- hclust(titlex, method = "ward.D2")

# 恢复默认边距，避免之前的par设置残留影响
par(mar = c(5,4,4,2)+0.1)
# 绘图时设置xlab为空，不绘制默认的x轴标题
plot(hc, xlab = "")
# 手动添加x轴标题，line=1是比较适中的上移位置，可自行调整数值
title(xlab = "titlex", line = 1)

未调整的默认绘图效果参考：

注意：如果后续要绘制其他base R图，记得运行par(mar = c(5,4,4,2)+0.1)恢复默认边距参数，避免其他图的边距显示异常。

内容的提问来源于stack exchange，提问作者Carlo Soares