Shiny中Plotly面积图悬停文本异常问题求助

问题1：未自定义悬停时仅显示第一个数据点 #

这是因为geom_area生成的是填充多边形，Plotly默认只会抓取多边形的顶点数据，而非每个原始数据点。解决方法：

• 确保数据为长格式，每个分组的x轴变量（如日期）连续有序
• 在ggplot中明确指定group参数，绑定分组变量
• 添加geom_line辅助图层，帮助Plotly识别每个数据点的信息

示例代码：

library(shiny)
library(ggplot2)
library(plotly)
library(tidyr)

# 构造长格式示例数据
set.seed(123)
df <- data.frame(
  date = seq.Date(as.Date("2023-01-01"), as.Date("2023-01-10"), by = "day"),
  group1 = cumsum(rnorm(10, 2, 1)),
  group2 = cumsum(rnorm(10, 1.5, 0.8))
) %>% pivot_longer(-date, names_to = "group", values_to = "value")

# 正确绘制面积图并转Plotly
p <- ggplot(df, aes(x = date, y = value, fill = group, group = group)) +
  geom_area(alpha = 0.6) +
  geom_line(aes(color = group))  # 关键：添加线条让Plotly捕捉每个点

ggplotly(p)

问题2：自定义hover_text后图表空白 #

排查方向及解决方法：

1. 检查hover_text的有效性

   • 确认数据中hover_text字段无NA值：运行any(is.na(df$hover_text))，如果返回TRUE，先处理缺失值（如用tidyr::replace_na填充）
   • 避免非法字符或未闭合的HTML标签：如果用HTML格式的悬停文本，仅使用Plotly支持的标签（如<br>换行）

2. 正确映射text美学

   • 将text=hover_text放在ggplot的全局aes中，或明确放在geom_area的aes里（确保分组变量同步）
   • 调用ggplotly时正确指定tooltip="text"

示例代码：

# 创建合法的hover_text（用HTML格式）
df$hover_text <- paste0(
  "日期: ", df$date, "<br>",
  "分组: ", df$group, "<br>",
  "数值: ", round(df$value, 2)
)

# 正确映射并转Plotly
p <- ggplot(df, aes(x = date, y = value, fill = group, group = group, text = hover_text)) +
  geom_area(alpha = 0.6) +
  geom_line(aes(color = group))

ggplotly(p, tooltip = "text")

3. 排查Shiny环境问题
   • 确保UI中用plotlyOutput，服务器端用renderPlotly输出，无其他可视化包（如highcharter）的冲突
   • 检查全局ggplot主题是否干扰Plotly转换：暂时注释自定义theme代码测试

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