如何在R/Shiny的Highcharts树状图中按colors列设置背景色

要实现根据数据框colors列设置Treemap节点背景色，核心是让Highcharts的层级数据结构包含每个节点的color属性。你的现有代码中data_to_hierarchical函数不会自动携带原数据的colors列，需要手动将颜色映射到对应节点，以下是两种可行方案：

方案一：为data_to_hierarchical输出的层级数据补全颜色 #

1. 先构建国家与颜色的映射表：

color_map <- data %>% select(country, colors) %>% tibble::deframe()

2. 生成层级数据后，通过递归函数为子节点添加颜色属性：

# 生成基础层级数据
hier_data <- data %>%
  highcharter::data_to_hierarchical(group_vars = c(continent, country),
                                    size_var = pop)

# 递归为叶子节点匹配颜色
add_node_colors <- function(node) {
  if (!is.null(node$children)) {
    node$children <- lapply(node$children, add_node_colors)
  } else {
    node$color <- color_map[node$name]
  }
  node
}

# 得到带颜色的层级数据
hier_data_colored <- add_node_colors(hier_data)

3. 绘制树状图：

hchart(hier_data_colored, type = "treemap", colorByPoint = TRUE)

方案二：手动构建包含颜色的层级数据 #

直接构建符合Highcharts要求的层级结构，无需依赖data_to_hierarchical，更精准控制节点属性：

data_prepped <- data %>%
  group_by(continent) %>%
  summarise(
    # 为每个国家节点配置name、value、color属性
    children = pmap(list(name = country, value = pop, color = colors),
                    ~list(name = ..1, value = ..2, color = ..3)),
    value = sum(pop)  # 大洲父节点的尺寸值
  ) %>%
  ungroup() %>%
  mutate(name = continent) %>%
  select(name, value, children)

# 绘图
hchart(data_prepped, type = "treemap", colorByPoint = TRUE)

注意事项 #

• 确保colors列的长度与过滤后的数据行数完全匹配，否则会出现颜色分配错误。若需根据数据变量动态分配颜色，建议用scale_color_*系列函数生成对应颜色向量。
• 保留colorByPoint = TRUE，确保Highcharts优先使用节点自带的color属性渲染。

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