R highcharter为形状添加多个批注

library(highcharter)

# 创建一个基本的图表对象
chart <- highchart() %>%
  hc_chart(type = "scatter")

# 添加数据系列
chart <- chart %>%
  hc_add_series(
    data = list(
      list(x = 1, y = 5),
      list(x = 2, y = 10),
      list(x = 3, y = 8)
    ),
    name = "Series 1"
  )

# 添加批注
annotations <- list(
  list(
    point = 0,
    text = "批注1",
    x = 1,
    y = 5,
    shape = "circle",
    backgroundColor = "red",
    borderColor = "black",
    borderWidth = 1
  ),
  list(
    point = 1,
    text = "批注2",
    x = 2,
    y = 10,
    shape = "square",
    backgroundColor = "blue",
    borderColor = "black",
    borderWidth = 1
  ),
  list(
    point = 2,
    text = "批注3",
    x = 3,
    y = 8,
    shape = "triangle",
    backgroundColor = "green",
    borderColor = "black",
    borderWidth = 1
  )
)

chart <- chart %>%
  hc_annotations(annotations)

# 显示图表
chart