ggplot2配置双Y轴后柱状图不显示，求解决方案

让我来帮你解决这个问题——你的柱状图不显示，核心问题出在Y轴的范围设置和双Y轴的转换逻辑上，咱们一步步来修复：

问题根源 #

1. 你设置了limits=c(1,1000)，但product的数值（比如950000、470000）远远超出这个范围，导致这类柱子被完全“裁剪”掉，根本显示不出来；
2. 双Y轴的转换方向搞反了：你用了~. *1000，相当于把原本就很大的数值再放大，这只会让数据偏离范围更远，而不是让两个指标的量级对齐。

解决方案思路 #

双Y轴在ggplot里本质是同一轴的刻度转换，我们需要先把其中一个指标的数值缩放，让两个系列的量级匹配，再通过第二Y轴把刻度转回去显示原始数值。这里我们选择把page的数值放大，适配product的量级（反过来缩小product也可以，逻辑一致）。

修正后的完整代码 #

library(ggplot2)

# 你的原始数据
df <- data.frame(
  categories = c("politics", "local", "economy", "cultural events", "politics", "local", "economy", "cultural events"),
  metric = c("page", "page", "page", "page", "product", "product", "product", "product"),
  value = c(100L, 50L, 20L, 19L, 950000L, 470000L, 50000L, 1320L)
)

# 定义转换系数：让page的数值乘以10000，量级接近product
coeff <- 10000

ggplot(df, aes(x = categories, y = ifelse(metric == "page", value * coeff, value), fill = metric)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_y_continuous(
    name = "Product 数值", # 主Y轴对应product的原始数值
    sec.axis = sec_axis(~ . / coeff, name = "Page 数值"), # 第二Y轴把缩放后的数值转成page原始刻度
    limits = c(0, max(df$value)) # 用product的最大值作为轴上限，确保所有柱子都能显示
  ) +
  labs(title = "各分类下Page与Product对比", fill = "指标类型") +
  theme_minimal()

关键调整说明 #

• 在aes(y = ...)里，我们对page的数值做了缩放，让它的范围和product对齐，这样所有柱子都能落在Y轴的显示范围内；
• 第二Y轴通过~ . / coeff把缩放后的数值转换回page的原始刻度，保证刻度读数是正确的；
• 去掉了错误的limits=c(1,1000)，换成用数据的实际最大值作为轴上限，避免裁剪数据。

如果你更想让主Y轴显示page的数值，只需要把缩放逻辑反过来：把product的数值除以coeff，第二Y轴再乘以coeff还原即可，代码逻辑完全一致。

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