Призрачные дубликаты аннотаций

Question

Я пытаюсь создать гистограмму с аннотациями справа. Я могу добиться этого с помощью приведенного ниже кода, но он также создает некоторые бонусные аннотации-призраки, которые перемещаются при изменении размера диаграммы. Что мне здесь не хватает?

    library(highcharter)

    x <- rev(c(.27, .18, .03, .07)) * 100

    highchart() %>%
  hc_chart(type = "bar", 
           backgroundColor = "#eee",
           margin = c(0, 0, 0, 0)) %>%
  hc_add_series_labels_values(labels = 1:length(x),
                              dataLabels = list(enabled = TRUE, 
                                                inside = FALSE,
                                                format = '{y}% ',
                                                style = list(color = "contrast",
                                                             fontSize = "14px",
                                                             textOutline = "none",
                                                             fontWeight = "normal")),
                              values = rev(x),
                              color = rep("#333333", length(x))) %>%
  hc_legend(enabled = FALSE) %>%
  hc_tooltip(enabled = FALSE) %>%
  hc_yAxis(visible = FALSE, max = 110) %>%
  hc_add_annotations(
    list(
      list(xValue = 0.5, yValue = 100, title = list(text = 'A')),
      list(xValue = 1.5, yValue = 100, title = list(text = 'B')),
      list(xValue = 2.5, yValue = 100, title = list(text = 'C'))
    )
  )