如何在echarts4r的e_mark_point中为不同系列设置独立的min/avg/max标记

你需要为每个系列单独构造符合ECharts格式的标记点数据，并通过偏移设置避免重叠，以下是可行的实现方案：

完整代码实现 #

library(echarts4r)

x <- c(10, 20, 30, 45, 46, 50)
y <- c(12, 25, 36, 46, 49, 59)

matrixinc1 <- data.frame(x, y)

near_line <- function(matriz) {
  diferenca <- abs(matriz[, 1] - matriz[, 2])
  indice <- which.min(diferenca)
  return(matriz[indice, , drop = FALSE])
}

near <- near_line(matrixinc1)

# 为x系列定义标记点：标记x值45
mark_x <- list(
  list(
    value = near$x,
    xAxis = near$x,  # 指定对应x轴位置
    symbolOffset = c(0, -10)  # 向上偏移，避免和y系列标记重叠
  )
)

# 为y系列定义标记点：标记y值46
mark_y <- list(
  list(
    value = near$y,
    xAxis = near$x,  # 对应同一个x轴位置
    symbolOffset = c(0, 10)  # 向下偏移
  )
)

matrixinc1 |>
  e_charts(x) |>
  e_line(x) |>
  e_line(y) |>
  e_mark_point(series = "x", data = mark_x) |>
  e_mark_point(series = "y", data = mark_y)

关键说明 #

• 之前的写法错误在于直接传递单个值或不规范的列表，echarts4r要求e_mark_point的data参数是符合ECharts规范的嵌套列表，每个标记点需明确关联的x轴位置和要标记的数值。
• 通过symbolOffset参数设置标记点的偏移量，让两个标记点上下错开，彻底避免重叠问题。
• 也可以用coord参数直接指定坐标对（c(x轴值, y轴值)），效果与上述代码一致：

  mark_x <- list(
    list(
      coord = c(near$x, near$x),
      symbolOffset = c(0, -10)
    )
  )
  

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