R语言DT包datatable表格每行悬浮时添加自定义提示文本的实现

只需要修改rowCallback对应的JS代码即可，核心是利用rowCallback自带的行索引参数匹配对应提示文本，DT中行索引从0开始计数。

完整修改后代码 #

V1<-c(2,3,4,5)
fd<-data.frame(V1)

rownames(fd)[1:4]<-c("Total cases",  "Total deaths", "Cases",        "Deaths")

library(DT)
datatable(fd,colnames = rep("", ncol(fd)),
          options = list(lengthChange = FALSE,scrollX = TRUE,dom = 't',
                         rowCallback = JS(
                           "function(row, data, index) {",
                           # 按索引顺序对应4行的提示文本，索引0对应表格第1行
                           "const tips = [",
                           "'Total cases in the world',",
                           "'Total deaths in the world',",
                           "'Total cases in the selected countries',",
                           "'Total deaths in the selected countries'",
                           "]",
                           "$('td', row).attr('title', tips[index]);",
                           "}")
          ))

改动说明 #

• 给JS函数新增了第三个参数index，该参数会自动返回当前渲染行的索引值，从0开始计数
• 定义了和行顺序对应的提示文本数组，直接通过索引匹配即可给不同行设置自定义悬浮提示
• 后续如果要调整提示内容或新增行，只要修改tips数组的内容和顺序即可，保持数组索引和行顺序对应即可

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