如何为bupaR活动频率图的ggplotly()设置指定悬浮提示信息

要把悬浮提示改成指定的"Activity:"和"Absolute Activity Frequency:"格式，你可以手动构建ggplot图形并自定义hover文本，再转换为plotly对象，具体修改如下：

修改后的Server端代码 #

server <- function(input, output,session) {
  sip<-bupaR::simple_eventlog(eventlog = eventdataR::sepsis,
                              case_id = "case_id",
                              activity_id = "activity",
                              timestamp = "timestamp",
                              resource_id = "resource"
  )
  output$activity_frequency <- renderPlotly({
    # 先计算活动频率统计数据
    freq_data <- sip %>% activity_frequency("activity")
    
    # 手动构建ggplot，自定义hover提示文本
    p <- ggplot(freq_data, aes(x = activity, y = absolute, 
                               text = paste("Activity:", activity, "\nAbsolute Activity Frequency:", absolute))) +
      geom_col(fill = "#1f77b4") +
      labs(x = "Activity", y = "Absolute Frequency") +
      theme_bw()
    
    # 转换为plotly对象，指定只显示自定义的提示内容
    ggplotly(p, tooltip = "text")
  })
}

关键说明 #

• 先通过activity_frequency()提取频率统计数据，摆脱对bupaR默认绘图输出的依赖
• 在ggplot的aes()参数中新增text，用paste()拼接成目标格式，\n用于实现提示文本的换行
• 调用ggplotly()时指定tooltip = "text"，确保只展示你自定义的提示内容，而非默认的x/y轴数值

内容的提问来源于stack exchange，提问作者firmo23