R语言ggplot2绘制堆叠柱状图时对数Y轴异常问题求助

基于频率分布表绘制堆叠柱状图时，初始代码可正常生成图表，但添加scale_y_log10()转换为对数Y轴后，柱状图的高度和方向出现异常。

示例数据 #

test_data <- structure(list(inst = c(5, 5, 5, 10, 10, 10, 15, 15, 15), 
                            equip = c("a", "b", "c", "a", "b", "c", "a", "b", "c"), 
                            value = c(0.520670542493463, 0.7556017707102, 0.931902746669948, 
                                      0.206132101127878, 0.0114199279341847, 0.603053622646257, 
                                      0.315444506937638, 0.375196750741452, 0.983124621212482)), 
                       class = "data.frame", row.names = c(NA, -9L))

初始正常绘图代码 #

注意：原代码中stat = "dodge"与position ="stack"矛盾，dodge是并列显示，stack是堆叠显示，此处修正为stat = "identity"（因数据已为分组汇总值）：

test_hist1 <- ggplot(test_data,aes(x = inst, y = value, fill = equip)) + 
  geom_bar(width=3, alpha=1, stat = "identity", position ="stack") +
  theme_bw() +
  xlab("Value") +
  ylab("value") + 
  ggtitle("test data") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_fill_manual(values=c("#00FF00", "#FFD700","#DC143C"))

问题原因 #

直接使用scale_y_log10()会先将value转换为对数后再计算堆叠位置，但对数运算不满足加法性质（log(a+b) ≠ log(a)+log(b)），导致堆叠逻辑混乱。同时，小数值的对数转换结果为负数，会出现柱子向下延伸的异常显示。

解决方案 #

使用coord_trans(y = "log10")替代scale_y_log10()：该函数先基于原始数据计算堆叠柱状图的位置，再将Y轴坐标系转换为对数刻度，既保留堆叠逻辑，又实现对数轴效果。

修正后的代码：

test_hist2 <- ggplot(test_data,aes(x = inst, y = value, fill = equip)) + 
  geom_bar(width=3, alpha=1, stat = "identity", position ="stack") +
  theme_bw() +
  xlab("Value") +
  ylab("log_yaxis") + 
  ggtitle("test data") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_fill_manual(values=c("#00FF00", "#FFD700","#DC143C")) +
  coord_trans(y = "log10") +
  # 可选：自定义对数轴刻度，提升可读性
  scale_y_continuous(breaks = c(0.01, 0.1, 1), labels = c("0.01", "0.1", "1"))

补充说明 #

• 确保所有value值为正数，否则对数转换会报错（示例数据满足该条件）；
• 若需更灵活的对数配置，可使用scale_y_continuous(trans = "log10")，但coord_trans()更适配堆叠柱状图场景。

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