使用highcharter为条形图中的每个条形图添加参考线

library(highcharter)

# 创建一个数据框
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 15, 25)
)

# 创建一个Highchart对象
chart <- highchart() %>%
  hc_chart(type = "bar") %>%
  hc_title(text = "Bar Chart with Reference Lines") %>%
  hc_xAxis(categories = data$category) %>%
  hc_yAxis(title = list(text = "Value")) %>%
  hc_plotOptions(series = list(dataLabels = list(enabled = TRUE))) %>%
  hc_series(name = "Value", data = data$value)

# 添加参考线
for (i in 1:nrow(data)) {
  chart <- chart %>%
    hc_yAxis_addPlotLine(
      value = data$value[i],
      color = "red",
      width = 2,
      dashStyle = "dash",
      label = list(text = paste("Reference Line", i))
    )
}

# 输出图表
chart