在工具提示中显示额外的变量 echarts4r
Displaying extra variables in tooltips echarts4r
我正在尝试在工具提示中使用额外变量制作绘图,但不明白如何制作。
例如我想显示 qsec
、cyl
和 hp
列
API 的教程对我没有帮助
示例:
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 ) } "))
有点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]} "))
这给了你
这是否达到了预期的效果?
library(dplyr)
library(echarts4r)
mtcars %>%
tibble::rownames_to_column("model") %>%
e_charts(wt) %>%
e_scatter(mpg, qsec, bind=model) %>% # pass qsec as size
e_tooltip(formatter = htmlwidgets::JS("
function(params){
return('<strong>' + params.name +
'</strong><br />wt: ' + params.value[0] +
'<br />mpg: ' + params.value[1] +
'<br />qsec: ' + params.value[2] ) } ")) # size = third value
我正在尝试在工具提示中使用额外变量制作绘图,但不明白如何制作。
例如我想显示 qsec
、cyl
和 hp
列
API 的教程对我没有帮助
示例:
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 ) } "))
有点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]} "))
这给了你
这是否达到了预期的效果?
library(dplyr)
library(echarts4r)
mtcars %>%
tibble::rownames_to_column("model") %>%
e_charts(wt) %>%
e_scatter(mpg, qsec, bind=model) %>% # pass qsec as size
e_tooltip(formatter = htmlwidgets::JS("
function(params){
return('<strong>' + params.name +
'</strong><br />wt: ' + params.value[0] +
'<br />mpg: ' + params.value[1] +
'<br />qsec: ' + params.value[2] ) } ")) # size = third value