求助：在ggplot直方图顶部显示价格值时出现object 'price' not found错误

嘿，我来帮你解决这个问题！你遇到的object 'price' not found错误，本质原因是ggplot的stat_bin（直方图默认用的统计变换）只会生成特定的内置统计量，比如..count..（计数）、..density..（密度）、..x..（分箱中点）这些，而..price..并不是它自动计算的变量，所以R找不到它。

要在直方图条形顶部标注价格值，首先得明确你想要展示的是每个分箱的哪种价格——是分箱的中点价格？还是分箱内价格的均值/中位数？下面分两种常见场景给你代码示例：

场景1：标注分箱的中点价格 #

如果只是想展示每个条形对应的价格区间中点，直接用stat_bin内置的..x..变量即可，它代表每个分箱的中点值：

library(ggplot2)

# 先准备示例数据（你可以替换成自己的数据集）
set.seed(123)
df <- data.frame(price = rnorm(100, mean = 50, sd = 10))

# 绘制带中点价格标注的直方图
ggplot(df, aes(x = price)) +
  geom_histogram(binwidth = 5, fill = "lightblue", color = "black") +
  # 用stat_bin生成文本标注，label绑定..x..（分箱中点）
  stat_bin(
    binwidth = 5, 
    geom = "text", 
    aes(label = round(..x.., 1)),  # 保留1位小数让标注更整洁
    vjust = -0.5,  # 把文本放在条形上方
    size = 3.5
  ) +
  labs(title = "直方图：每个条形标注价格中点",
       x = "价格", y = "计数") +
  theme_minimal()

场景2：标注分箱内的价格统计值（均值/中位数） #

如果想展示每个分箱内价格的均值、中位数这类统计量，建议先提前对数据分箱计算，再用柱状图+文本标注的方式实现（这样更灵活可控）：

library(ggplot2)
library(dplyr)

# 示例数据
set.seed(123)
df <- data.frame(price = rnorm(100, mean = 50, sd = 10))

# 第一步：手动分箱并计算每个分箱的统计量
bin_width <- 5  # 分箱宽度和直方图保持一致
df_binned <- df %>%
  # 按指定宽度分箱
  mutate(bin = cut(price, breaks = seq(floor(min(price)), ceiling(max(price)), by = bin_width))) %>%
  # 按分箱分组，计算计数、价格均值、分箱中点
  group_by(bin) %>%
  summarise(
    count = n(),
    mean_price = mean(price),  # 这里可以换成median(price)得到中位数
    # 计算分箱中点（用于x轴定位）
    bin_midpoint = (as.numeric(sub("\\((.+),.*", "\\1", bin)) + as.numeric(sub(".*,(.+)]", "\\1", bin)))/2
  ) %>%
  ungroup()

# 第二步：绘制带价格均值标注的柱状图（效果和直方图一致）
ggplot(df_binned, aes(x = bin_midpoint, y = count)) +
  geom_col(fill = "lightblue", color = "black", width = bin_width) +
  # 标注价格均值
  geom_text(aes(label = round(mean_price, 1)), vjust = -0.5, size = 3.5) +
  labs(title = "直方图：每个条形标注价格均值",
       x = "价格", y = "计数") +
  theme_minimal()

这样就能完美实现你想要的效果啦！关键是要区分stat_bin内置的统计变量和原始数据列的区别，按需选择直接用内置变量或者提前计算统计量的方式。

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