如何用ggplotly与geom_density自定义Tooltip？含直方图组合场景

问题背景 #

基于mtcars数据集的mpg可视化需求：

• 单独绘制密度图时，默认Tooltip显示的scaled文本需替换为自定义内容，但直接在aes中添加text会生成多条密度曲线
• 结合直方图与密度图后，Tooltip显示混乱，需要为每个图层单独设置清晰的Tooltip，最终应用于R Shiny项目

一、单独密度图的Tooltip优化 #

直接绑定原始mpg数据到text会导致geom_density为每个数据点生成曲线，正确做法是提前计算密度数据，再用geom_line绘制，自定义Tooltip内容：

data(mtcars)
library(ggplot2)
library(plotly)

# 提前计算密度数据，手动生成scaled值
dens_data <- density(mtcars$mpg)
dens_df <- data.frame(
  mpg = dens_data$x,
  scaled_density = dens_data$y / max(dens_data$y),
  raw_density = dens_data$y
)

# 绘制自定义Tooltip的密度图
ggplotly(
  ggplot(dens_df) +
    geom_line(aes(x = mpg, y = scaled_density, 
                  text = paste("MPG值:", round(mpg, 2), "\n缩放密度:", round(scaled_density, 4), "\n原始密度:", round(raw_density, 4)))) +
    scale_y_continuous(name = '缩放密度'),
  tooltip = "text"
)

二、直方图+密度图的分层Tooltip实现 #

核心是分别处理两个图层的数据，为每个图层独立定义Tooltip内容，同时匹配y轴缩放比例：

data(mtcars)
library(ggplot2)
library(plotly)
library(plyr)

# 计算直方图参数与数据
nbins <- 20
df <- mtcars
bin_width <- diff(range(df$mpg))/nbins
min.brea <- round_any(min(df$mpg), bin_width, floor)
max.brea <- round_any(max(df$mpg), bin_width, ceiling)
breaks <- seq(min.brea, max.brea, bin_width)
histdata <- hist(df$mpg, breaks = breaks, plot = FALSE, right = FALSE)

# 计算密度数据并缩放，匹配直方图y轴范围
max_hist <- max(histdata$counts)
max_dens <- max(density(df$mpg)$y)
dens_data <- density(df$mpg)
dens_df <- data.frame(
  mpg = dens_data$x,
  scaled_density = dens_data$y / max_dens * max_hist,
  raw_density = dens_data$y
)

# 绘制混合图层，分层设置Tooltip
p <- ggplot() +
  # 直方图Tooltip：显示MPG区间与计数
  geom_histogram(data = df, aes(x = mpg, 
                                text = paste("MPG区间:", cut(mpg, breaks = breaks, right = FALSE), "\n计数:", ..count..)),
                 bins = nbins, color = "black", fill = "white") +
  # 密度图Tooltip：显示MPG值、缩放密度与原始密度
  geom_line(data = dens_df, aes(x = mpg, y = scaled_density,
                                text = paste("MPG值:", round(mpg, 2), "\n缩放密度:", round(scaled_density, 2), "\n原始密度:", round(raw_density, 4)))) +
  scale_y_continuous(
    name = '计数', 
    sec.axis = sec_axis(~ . * (max_dens/max_hist), name = '密度')
  )

# 转换为ggplotly，自动区分图层Tooltip
ggplotly(p, tooltip = "text")

关键说明 #

• 直方图使用..count..内置变量获取计数，结合cut()生成区间文本，避免绑定原始数据导致Tooltip混乱
• 密度图提前计算并缩放数据，确保y轴与直方图匹配，同时自定义Tooltip内容
• 两个图层的text参数独立，ggplotly会根据鼠标悬停的图层自动显示对应Tooltip

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