有没有更好的方法在 R 中分层聚类？

# 加载数据
data(mtcars)

# 计算距离矩阵
dist_matrix <- dist(mtcars)

# 使用层次聚类方法
hclust_result <- hclust(dist_matrix, method = "ward.D")

# 绘制层次聚类图
plot(hclust_result)

# 安装和加载 ggplot2 包
install.packages("ggplot2")
library(ggplot2)

# 使用 ggplot2 绘制层次聚类图
ggplot(data = as.data.frame(hclust_result), aes(x = x, y = y, group = cutree(hclust_result, k = 4), label = row.names(mtcars))) +
  geom_point(aes(color = as.factor(cutree(hclust_result, k = 4))), size = 3) +
  geom_text(size = 3, vjust = 1.5) +
  scale_color_brewer(palette = "Set1") +
  theme_bw()