echarts4r中e_mark_area()实现不同填充色的问题求助

问题分析 #

你当前的代码里所有高亮区域都显示为浅绿色，核心原因有两个：

• ECharts标记区域的填充样式需通过areaStyle定义，而非itemStyle
• 代码存在管道符笔误（df %>应改为df %>%）

修正后的代码 #

set.seed(123) # 设置随机种子保证结果可复现
df <- data.frame(Date = seq(from = as.Date("2023-01-01"), by = "day", length.out = 100),
                 Count = sample(100:150, size = 100, replace = TRUE))

p1_sta <- as.Date("2023-01-01")
p1_end <- as.Date("2023-01-15")

p2_sta <- as.Date("2023-02-01")
p2_end <- as.Date("2023-03-01")

p3_sta <- as.Date("2023-04-01")
p3_end <- as.Date("2024-04-10")

df %>% # 修正管道符笔误
  group_by(Date) %>% 
  summarise(Count = sum(Count)) %>% 
  e_charts(Date, barCategoryGap = "1%") %>%
  e_line(Count, color = "grey", name = "", symbolSize = 3) %>%
  # 第一个高亮区域：浅绿色
  e_mark_area(
    data = list(
      list(xAxis = p1_sta, name = "A"), 
      list(xAxis = p1_end)
    ), 
    areaStyle = list(color = "lightgreen", opacity = 0.1) # 替换为areaStyle
  ) %>% 
  # 第二个高亮区域：橙色
  e_mark_area(
    data = list(
      list(xAxis = p2_sta, name = "B"), 
      list(xAxis = p2_end)
    ), 
    areaStyle = list(color = "orange", opacity = 0.1) # 替换为areaStyle
  ) %>% 
  # 第三个高亮区域：红色
  e_mark_area(
    data = list(
      list(xAxis = p3_sta, name = "C"), 
      list(xAxis = p3_end)
    ), 
    areaStyle = list(color = "red", opacity = 0.1) # 替换为areaStyle
  ) %>% 
  e_x_axis(show = FALSE) %>% 
  e_y_axis(name = "Beds Occupied", nameLocation ="middle",
           nameTextStyle = list(padding = c(0,0,20,0))) %>%
  e_tooltip(axisPointer = list(type = "cross"),
            trigger = "axis",
            backgroundColor = "rgba(40, 40, 40, 0.75)",
            borderColor = "rgba(0, 0, 0, 0)", textStyle = list(color = "#fcfcff")) %>%
  e_legend(bottom = "1%") %>%
  e_grid(right = "1%", left = "4%", bottom = "2%", top = "10%")

关键修改说明 #

• 将itemStyle替换为areaStyle：这是ECharts官方规定的标记区域填充样式配置项，负责控制区域的背景色和透明度
• 修正管道符笔误：确保数据处理流程正常执行
• 添加set.seed(123)：保证随机生成的Count数据可复现，方便调试

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