Ggplot2中geom_col图表Y轴随屏幕分辨率/宽高比反转问题求助

问题原因 #

你的Y轴数值范围极小（集中在8.947795~8.947916之间），结合coord_cartesian(ylim)限制后，当绘图设备尺寸过小时（比如ggsave默认尺寸、Shiny中自适应小屏幕），ggplot2内部的轴方向计算会因浮点数精度误差误判，导致Y轴反转。

解决方案 #

1. 替换coord_cartesian(ylim)为scale_y_continuous(limits)

用scale_y_continuous设置范围并关闭轴扩展，避免精度问题：

library(tidyverse)

tibble(x4 = c(8.947916, 8.947798 ,8.947830, 8.947833, 
              8.947799 ,8.947827 ,8.947795, 8.947830, 8.947837),
       x5 = c("TT", "CC", "CC", "MM", "MM", "HH", "HH", "MH", "DD"))  %>% 
  ggplot() +
  aes(x = x5, y = x4) +
  geom_col() +
  scale_y_continuous(limits = c(8.9478, 8.9481), expand = c(0, 0)) -> p1

ggsave("fixed_plot.png", plot = p1) # 无需指定尺寸也不会反转

2. 强制锁定Y轴方向

如果必须保留coord_cartesian，可叠加scale_y_continuous双重限制，确保轴方向始终正向：

ggplot() +
  aes(x = x5, y = x4) +
  geom_col() +
  coord_cartesian(ylim = c(8.9478, 8.9481)) +
  scale_y_continuous(limits = c(8.9478, 8.9481), expand = c(0, 0))

3. Shiny应用中固定绘图尺寸

在renderPlot中指定固定宽高，避免屏幕尺寸波动引发的精度问题：

output$my_plot <- renderPlot({
  # 你的绘图代码
}, width = 600, height = 400)

原理说明 #

指定绘图尺寸或改用scale_y_continuous后，绘图设备有足够的空间计算Y轴数值范围，避免了小尺寸下的浮点数精度丢失，从而正确识别轴的上下顺序。

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