使用r plotly对异常值进行箱线图注释

library(plotly)
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 100)

boxplot <- plot_ly(y = data, type = "box")

boxplot <- boxplot %>% add_trace(y = data, type = "box", boxpoints = "outliers", hoverinfo = "text")

annotations <- list(
  list(
    x = 1,  # 异常值的x轴位置
    y = max(data),  # 异常值的y轴位置
    text = "异常值",  # 注释文本
    showarrow = TRUE,  # 是否显示箭头
    arrowhead = 7,  # 箭头样式
    ax = 0,  # 箭头x轴偏移量
    ay = -40  # 箭头y轴偏移量
  )
)

boxplot <- boxplot %>% layout(annotations = annotations)

boxplot