使用R将悬停文本添加到plolty中的框图

library(plotly)

# 创建一个示例数据框
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 4, 9, 16, 25)
)

# 创建一个框图
plot <- plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'lines')

# 添加悬停文本的注释
plot <- plot %>% 
  add_annotations(
    x = 3,  # 悬停文本的x坐标
    y = 10,  # 悬停文本的y坐标
    text = "悬停文本示例",  # 悬停文本内容
    showarrow = FALSE,  # 不显示箭头
    font = list(size = 14, color = "red")  # 设置字体大小和颜色
  )

# 显示图表
plot