在函数中使用ggplotly时格式化工具提示中的数字

以下两种方法可以直接解决你遇到的Tooltip小数过多的问题，核心是直接控制Tooltip的生成逻辑：

方法1：在ggplot层自定义Tooltip内容 #

直接在aes中添加text映射，手动构造想要的Tooltip文本，避免ggplotly自动读取原始数据的小数格式：

library(ggplot2)
library(plotly)

# 示例数据
data <- data.frame(
  persons_per_census_tract = rnorm(1000, mean = 16.7, sd = 3),
  group = sample(c("组A", "组B"), 1000, replace = TRUE)
)

# 绘制密度图并自定义Tooltip
p <- ggplot(data, aes(
  x = persons_per_census_tract,
  fill = group,
  # 手动构造Tooltip，用round()转成整数
  text = paste("普查区人口数:", round(persons_per_census_tract))
)) +
  geom_density(alpha = 0.5) +
  labs(x = "普查区人口数", fill = "分组")

# 转成ggplotly并指定使用自定义text作为Tooltip
ggplotly(p, tooltip = "text")

方法2：用ggplotly的hovertemplate格式化字段 #

如果不想修改ggplot的映射，可以在转成ggplotly后，通过style()函数设置hovertemplate，直接格式化数值显示：

library(ggplot2)
library(plotly)

# 先绘制基础ggplot图
p <- ggplot(data, aes(
  x = persons_per_census_tract,
  fill = group
)) +
  geom_density(alpha = 0.5) +
  labs(x = "普查区人口数", fill = "分组")

# 转成ggplotly并设置Tooltip格式
ggplotly(p) %>%
  style(
    hovertemplate = paste(
      "普查区人口数: %{x:.0f}<br>",  # .0f表示保留0位小数（整数）
      "分组: %{fill}<br>",
      "<extra></extra>"  # 去除默认的多余trace标签
    )
  )

嵌入函数的写法 #

如果要整合到你的plot_multi_histogram（注：你实际是密度图，建议改名）函数中，可以这样写：

plot_multi_density <- function(data, var_name, group_name) {
  p <- ggplot(data, aes(
    x = .data[[var_name]],
    fill = .data[[group_name]],
    text = paste(
      stringr::str_replace(var_name, "_", " "),
      ": ",
      round(.data[[var_name]])
    )
  )) +
    geom_density(alpha = 0.5) +
    labs(x = stringr::str_replace(var_name, "_", " "), fill = group_name)
  
  ggplotly(p, tooltip = "text")
}

# 调用函数
plot_multi_density(data, "persons_per_census_tract", "group")

为什么之前的方法失效？ #

你尝试的as.integer/round()等操作如果只修改了x轴的映射，ggplotly依然会读取原始数据的数值用于Tooltip生成；而上述两种方法是直接控制Tooltip的内容或格式化规则，因此能生效。

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