在echarts4r中隐藏e_line标签

jexiocij  于 2023-04-18  发布在  Echarts
关注(0)|答案(1)|浏览(205)
df1 <- data.frame(Date = c(1,2,3),
                  Reach = c(12,15,20),
                  Cost = c(12332,321112,4231223))
df1 %>% 
  e_chart(Date) %>% 
  e_bar(Reach, emphasis = list(label = list(show = FALSE))) %>% 
  e_line(Cost, y_index = 1) %>% 
  e_tooltip() %>% 
  e_title("Actual v CPC") %>% 
  e_labels(
    formatter = htmlwidgets::JS("
      function(params){
        if (params.seriesIndex == 1) {
          var cost = params.value[1];
          return 'Rp' + cost.toLocaleString('id-ID');
        } 
      }
    ")
  ) |> e_toolbox_feature(feature = "saveAsImage")

所以我有这个代码与e_labels格式化程序带来的标签从e_line形成印尼盾或印尼货币,但我想使酒吧内的标签消失。我已经尝试使用强调=列表(标签=列表(显示=假)),但它仍然不工作
代码的结果如下:

我希望e_bar中的标签消失,但e_line仍显示

lf3rwulv

lf3rwulv1#

我建议您不要使用e_labels,而是在您希望显示标签的chart函数中使用label参数。
就像这样:

library(echarts4r)
df1 <- data.frame(Date = c(1,2,3),
                  Reach = c(12,15,20),
                  Cost = c(12332,321112,4231223))
df1 %>% 
  e_chart(Date) %>% 
  e_bar(Reach) %>% 
  e_line(Cost, y_index = 1,
         label = list(show = TRUE,
         formatter = htmlwidgets::JS("
      function(params){
          var cost = params.value[1];
          return 'Rp' + cost.toLocaleString('id-ID');
        }"))) %>% 
  e_tooltip() %>% 
  e_title("Actual v CPC") %>% 
  e_toolbox_feature(feature = "saveAsImage")

相关问题