Highcharter 依赖轮图表中工具提示的格式化问题

Question

我正在使用 R 中的

highcharter

包创建一个依赖轮图，可视化巴西地区和经济集团之间的出口关系。虽然大多数图表的格式都是正确的，但在选择外部标签时，我遇到了工具提示问题。具体来说，连接之间的格式准确，但工具提示格式不一致或不符合预期。

这是我的数据示例：

g_211a <- tibble(
  Ano = rep("2020", 40),
  Nome_Regiao = c(
    "Centro Oeste", "Centro Oeste", "Centro Oeste", "Centro Oeste", "Centro Oeste", "Centro Oeste", "Centro Oeste", "Centro Oeste",
    "Nordeste", "Nordeste", "Nordeste", "Nordeste", "Nordeste", "Nordeste", "Nordeste", "Nordeste",
    "Norte", "Norte", "Norte", "Norte", "Norte", "Norte", "Norte", "Norte",
    "Sudeste", "Sudeste", "Sudeste", "Sudeste", "Sudeste", "Sudeste", "Sudeste", "Sudeste",
    "Sul", "Sul", "Sul", "Sul", "Sul", "Sul", "Sul", "Sul"
  ),
  Nome_Bloco = c(
    "América Central", "América do Norte", "América do Sul", "Europa", "Oceania", "Oriente Médio", "África", "Ásia",
    "América Central", "América do Norte", "América do Sul", "Europa", "Oceania", "Oriente Médio", "África", "Ásia",
    "América Central", "América do Norte", "América do Sul", "Europa", "Oceania", "Oriente Médio", "África", "Ásia",
    "América Central", "América do Norte", "América do Sul", "Europa", "Oceania", "Oriente Médio", "África", "Ásia",
    "América Central", "América do Norte", "América do Sul", "Europa", "Oceania", "Oriente Médio", "África", "Ásia"
  ),
  US_FOB = c(
    280, 1148, 971, 6188, 20.1, 1548, 1308, 17051,
    165, 3743, 1509, 3383, 49.0, 179, 362, 6712,
    43.4, 1109, 933, 4471, 26.7, 636, 337, 16642,
    1623, 18777, 12504, 17432, 528, 3512, 4130, 40856,
    822, 4732, 6727, 5822, 188, 2912, 1726, 17984
  ),
  peso = c(
    1215963, 2518346, 3425936, 15357213, 23305, 5376993, 4812262, 43083225,
    208721, 7951870, 1206296, 6961486, 38124, 775838, 1535158, 20753837,
    107386, 4114713, 953891, 19801871, 16271, 3510910, 727275, 176968392,
    3580532, 22133764, 9771731, 35172655, 480777, 16728713, 12210101, 207129913,
    1056835, 4403596, 5519469, 8332363, 282375, 4560093, 3215392, 41396083
  )
)

这是我用来生成依赖轮图的代码：

library(highcharter)
library(tidyverse)

generate_wheel_region <- function(data, measure, year_filter, region_filter) {
  measure_column <- ifelse(measure == "value", "US_FOB", "Peso_Liquido")
  
  wheel_data <- data %>%
    group_by(Nome_Regiao, Nome_Bloco) %>%
    summarise(Measure = sum(.data[[measure_column]], na.rm = TRUE),
              .groups = "drop")
  
  connections <- data %>%
    transmute(from = Nome_Regiao, to = Nome_Bloco, weight = US_FOB)
  
  nodes <- unique(c(connections$from, connections$to)) |>
    lapply(function(x) {
      list(
        id = x,
        name = gsub("\\d+\\.\\s?", "", x)
      )
    })
  
  title_measure <- ifelse(measure == "value", "Valor Exportado (US$)", "Peso Exportado (Toneladas)")
  title_title <- "Relações de Exportação entre Regiões e Setores Econômicos"
  title_subtitle <- paste("Região:", region_filter, " | Ano:", ifelse(year_filter == "Todos", "2011-2020", year_filter))
  
  tooltip_text <- paste(
    "<b>{point.from}</b> → <b>{point.to}</b> <br>",
    ifelse(measure == "value",
           "<b> Valor Exportado </b> US$ {point.weight:,.1f} mi",
           "<b> Peso Exportado </b>: {point.weight:,.1f} toneladas"
    )
  )
  
  highchart() %>%
    hc_chart(type = "dependencywheel", backgroundColor = "white") %>%
    hc_title(text = title_title) %>%
    hc_subtitle(text = title_subtitle) %>%
    hc_add_series(
      data = connections,
      name = "Exportações",
      hcaes(from = from, to = to, weight = weight),
      type = "dependencywheel",
      nodes = nodes
    ) %>%
    hc_tooltip(useHTML = TRUE, pointFormat = tooltip_text) %>%
    hc_add_theme(hc_theme_smpl()) %>%
    hc_exporting(enabled = TRUE)
}

generate_wheel_region(
  g_211a,
  "value",
  2020,
  c("Sul", "Nordeste")
)

问题： 对于标签之间的连接，工具提示的格式正确，但选择外部标签时，格式显示不同。

我需要确保工具提示显示一致。

Answer 1

我认为您正在寻找的是

nodeFormat

的

hc_tooltip()

论点。它接受一个格式字符串，表示依赖轮工具提示中的节点（而不是链接）显示的内容。默认情况下，它设置为

"{point.name}: <b>{point.sum}</b><br/>"

，这就是为什么最接近滚轮外周的标签的工具提示有所不同。所以类似

hc_tooltip(
      useHTML = TRUE, 
      pointFormat = tooltip_text,
      nodeFormat = "<b>{point.name}</b><br/> <b> Valor Exportado </b> US$ {point.sum:,.1f} mi"
    )

可以工作。如果我们使用上面提供的其余代码运行此代码，则将鼠标悬停在区域名称上时会生成以下工具提示：