echarts4r折线图标签百分比显示及柱状图标签隐藏问题

以下是针对你遇到的两个问题的具体解决方法及修正后的代码：

完整修正代码 #

library(echarts4r)
library(scales)

df1 <- data.frame(Date = c(1,2,3),
                  Reach = c(12,15,20),
                  Cost = c(0.98,0.00056,0.89))

df1 %>% 
  e_chart(Date) %>% 
  # 直接在柱状图系列内设置隐藏标签
  e_bar(Reach, label = list(show = FALSE)) %>% 
  # 折线图标签用JS函数格式化百分比，同时指定右侧y轴
  e_line(Cost, y_index = 1, 
         label = list(
           show = TRUE,
           formatter = htmlwidgets::JS("function(params) {return (params.value * 100).toFixed(2) + '%';}")
         )) %>%
  # 给右侧y轴设置百分比刻度
  e_y_axis(index = 1, formatter = "{value}%") %>%
  e_tooltip() %>% 
  e_title("Actual v CPC")

问题1：折线图标签百分比格式化不生效 #

原始代码中scales参数用法错误，e_line的scales并非用于标签格式化，而是数据映射尺度调整。正确实现方式有两种：

• JS函数直接格式化：在label的formatter中用JS代码将数值转为百分比，可自定义小数位数（如toFixed(2)保留两位小数）。
• 提前用scales包转换：先将Cost列转为百分比字符串，再传入折线图：

  df1$Cost_percent <- percent(df1$Cost, accuracy = 0.01)
  df1 %>% 
    e_chart(Date) %>% 
    e_bar(Reach, label = list(show = FALSE)) %>% 
    e_line(Cost_percent, y_index = 1, label = list(show = TRUE)) %>%
    e_y_axis(index = 1, formatter = "{value}%") %>%
    e_tooltip() %>% 
    e_title("Actual v CPC")
  

同时建议给右侧y轴设置百分比刻度，保证视觉统一。

问题2：e_labels无法隐藏柱状图标签 #

e_labels()是全局标签设置，会作用于所有系列，若需单独控制：

• 优先在系列内设置：直接在e_bar中添加label = list(show = FALSE)，这是最精准的单系列控制方式，也是你原始代码中已生效的方法。
• 用e_labels指定系列索引：若一定要用全局设置，可通过系列索引单独控制（索引从0开始，柱状图为第0个系列，折线图为第1个）：

  df1 %>% 
    e_chart(Date) %>% 
    e_bar(Reach) %>% 
    e_line(Cost, y_index = 1) %>%
    e_labels(show = c(FALSE, TRUE)) %>%
    e_y_axis(index = 1, formatter = "{value}%") %>%
    e_tooltip() %>% 
    e_title("Actual v CPC")
  

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