不是通过标签而是通过R

Question

我已经解决了有关此主题的其他问题，但尚未找到我的案例的答案。我希望我的树形图的叶子是彩色编码的，但不是它的标签;我希望它由不同的变量编码。

我有一个带有多个列的DF。第一栏包含＆＃34; Markets＆＃34;最后一栏描述了＆＃34;颜色代码＆＃34;通过分配这些市场＆＃34; Red＆＃34;，＆＃34; Yellow＆＃34;或＆＃34;格林＆＃34;类别。现在，我希望我的树形图的标签是市场名称，但颜色代码由变量＆＃34; color_codes＆＃34;的内容给出。

我能做些什么，以便市场标记/离开＆＃34; CA＆＃34;和＆＃34; TX＆＃34;是红色的，＆＃34; MN＆＃34;是黄色和＆＃34; CO＆＃34;根据DF最后一栏的颜色代码，颜色是否为绿色？我还希望标签“悬挂”。

library(dendextend)
library(DEoptimR)

Markets         <- c("CA","TX","MN","CO")
Attribute1      <- c(1,2,4,4)
Attribute2      <- c(76,435,66,77)
Attribute3      <- c(24,3,4,34)
color_codes     <- c("Red","Red","Yellow","Green")

DF <- data.frame(Attribute1, Attribute2, Attribute3)

DF_scaled <- scale(DF)

row.names(DF_scaled) <- Markets
hc <- hclust(dist(DF_scaled)) 
dend <- as.dendrogram(hc)

dend %>% set("leaves_pch", 19) %>% set("leaves_cex", 2) %>% 
set("leaves_col", color_codes) %>% # adjust the leaves
hang.dendrogram(dend, hang_height = 1) %>% # hang the leaves
plot(main = "Hanging a tree")

此代码在执行最后一个代码块/行时出现以下错误：

错误:(列表）对象无法强制键入＆＃39; double＆＃39;