hclust /树形图修剪树堆栈叶子

Question

hclust的树形图将为每个叶子提供一个起始分支。 rect.hclust函数允许我在簇周围绘制矩形。有没有办法在那一点切割树，并将所有叶子作为该分支下的列表？

示例代码：

hc <- hclust(dist(mtcars[1:10, ]), "ave")
plot(hc)
stats::rect.hclust(hc, 3)

给出：

我想得到：