在echarts4r中，我创建了一个工具提示，它可以显示总数和百分比。它在饼图或圆环图中工作，但在条形图中不工作，条形图显示 * 未定义的%*。我已经在条形图JS函数中尝试了totals += params.value[1]; perc = params.value[1] / totals;。但它不工作。

library(tidyverse)
library(echarts4r)
My_df <- data.frame(n = c(2, 4, 10), 
                    x = c("A", "B", " C")) %>%
     mutate(percent = round(n/sum(n), 2) )

字符串
1.圆环图：

My_df %>%
  e_charts(x)  %>% 
  e_pie(n, radius = c("50%", "70%")) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                                        function(params){
                                        return('<strong>' + params.name + 
                                        '</strong><br/>total: ' + params.value + 
                                        '<br />percent: ' +  params.percent)  +'%' }  "))

型

的数据
1.条形图：

My_df %>%
  e_charts(x)  %>% 
  e_bar(n) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                                        function(params){
                                        return('<strong>' + params.name + 
                                        '</strong><br/>total: ' + params.value[1] + 
                                        '<br/>percent: ' +  params.percent)  +'%' }  "))

型