在工具提示中显示额外的变量 echarts4r

Question

我正在尝试使用工具提示中的额外变量绘制绘图，但无法理解如何制作。
例如，我想显示qsec，cyl而 来自 API 的hp列
教程没有帮助我
示例：

library(dplyr)
library(echarts4r)
mtcars %>%  
  tibble::rownames_to_column("model") %>% 
  e_charts(wt) %>% 
  e_scatter(mpg,bind=model) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                                        function(params){
                                        return('<strong>' + params.name + 
                                        '</strong><br />wt: ' + params.value[0] + 
                                        '<br />mpg: ' +  params.value[1] +
                                        '<br />qsec: ' +  this.qsec )   }  "))

预期结果是这样的：https :
//github.com/jbkunst/highcharter/issues/54

Answer 1

有点 hacky，但您可以传入一个字符串，其中包含您希望显示为数据名称的数据，然后在函数内部解析它。例如，

mtcars %>%  
  tibble::rownames_to_column("model") %>%
  mutate(model = paste(model, qsec, sep = ",")) %>%
  e_charts(wt) %>% 
  e_scatter(mpg, bind = model) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                                        function(params){
                                          var vals = params.name.split(',')
                                          return('<strong>' + vals[0] + 
                                          '</strong><br />wt: ' + params.value[0] + 
                                          '<br />mpg: ' +  params.value[1]) +
                                          '<br />qsec: ' + vals[1]}  "))

这给了你