echarts4r中隐藏柱状图标签、保留折线图标签的实现问题

你之前的问题出在两个地方：一是全局的e_labels会把设置应用到所有系列，二是emphasis控制的是鼠标hover时的标签显示，不是默认状态下的标签开关。

正确的做法是给每个系列单独配置标签：给柱状图直接设置隐藏默认标签，给折线图单独配置格式化后的标签。修改后的代码如下：

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, label = list(show = FALSE)) %>% 
  # 给折线图单独配置标签格式化
  e_line(Cost, y_index = 1, 
         label = list(
           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")

关键说明 #

• 移除了全局的e_labels，改为在每个系列的参数内设置label，这样配置只会作用于当前系列
• e_bar中的label = list(show = FALSE)直接关闭了柱状图的默认标签显示
• e_line中的label参数单独定义了格式化函数，只对折线图的标签生效，实现印尼盾格式的显示

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