如何在R的Sparkline中添加带自定义分类标签的提示框？

问题现象 #

使用sparkline包在DT数据表中添加迷你图时，自定义提示框显示0:1、1:3这类索引格式，而非预期的2021 Q1:1、2021 Q2:3分类标签格式。代码中已指定x = yr_q，且打印data1$Trend时HTML/JSON里的x标签正确，但DT渲染后提示框仍显示索引值。

问题原因 #

sparkline的tooltipFormat参数在DT环境中无法直接读取传入的分类x值，默认会将x轴转换为连续索引值。需要通过自定义JavaScript提示框函数来手动获取并显示原始分类标签。

解决方案 #

修改spk_chr中的提示框配置，使用tooltipFormatter传入自定义JS函数，直接从options.x中读取分类标签：

library(sparkline) 
library(formattable) 
library(DT)
library(tidyverse)

# 创建数据框
data = data.frame(
  group = rep(c("A", "B"),3), 
  yr_q = rep(c("2021 Q1", "2021 Q2", "2021 Q3"),2), 
  count = c(1, 2, 3, 4, 5, 6)
)

# 生成带自定义提示框的Sparkline字符
data1 = data %>% 
  group_by(group) %>% 
  summarise(
    Trend = spk_chr(
      count, 
      x = yr_q,
      # 自定义提示框格式化函数
      tooltipFormatter = JS(
        "function(sparkline, options, fields) {
          return fields.map(field => options.x[field.offset] + ':' + field.y).join('<br>');
        }"
      )
    )
  )

# 渲染DT表格并添加Sparkline依赖
data1 %>% 
  formattable() %>% 
  as.datatable() %>% 
  spk_add_deps()

关键修改说明 #

• 替换tooltipFormat参数为tooltipFormatter，传入自定义JavaScript函数。
• 函数通过options.x[field.offset]获取对应位置的分类x标签（即yr_q的原始值），结合field.y生成预期的提示文本。
• 使用join('<br>')让每个提示项换行，优化提示框的可读性。

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