树形图基于使用R的数据帧中的col值

Question

我想绘制一个数据帧的树形图，根据X列中的值为成员着色，类似于下面的树形图中所示。可能吗？

我查看了此论坛中的其他帖子，但无法找到一种方法，根据没有K均值的列值绘制带有彩色分支的树状图。

# Data frame df
  X
a 1
b 2
c 1
d 2
e 3
f 1
g 3

df <- dist(df)
d <- dist(df, method = "euclidean")  
fit <- hclust(d, method="ward")
plot(fit)