如何在R中按指定Y轴值截断geom_bar并解决翻转后轴限失效问题

问题原因 #

ggplot2的绘图系统中，每个图表只能绑定一个坐标系。你先通过coord_fixed(ylim = c(1, 5))设置了固定比例的坐标系并限定Y轴范围，后续添加coord_flip()时，后者会完全替换掉之前的坐标系配置，导致原有的Y轴限失效，同时触发提示信息“Coordinate system already present. Adding new coordinate system, which will replace the existing one.”。

两种可行解决方法 #

方法一：将轴限与翻转整合到同一坐标系函数中 #

翻转坐标系后，原Y轴（对应Mean值）会转换为新的X轴，因此只需在coord_flip()中设置xlim = c(1, 5)即可保留轴限需求，同时可通过ratio参数维持坐标比例（默认值为1，与coord_fixed()一致）：

ES <- ggplot(dfES, aes(x=Scenarios, y=Mean)) + 
  geom_bar(position=position_dodge(), stat="identity", 
           fill="lightblue", colour='black') +
  ggtitle("E-scooters") +
  geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), width=.2)+
  coord_flip(xlim = c(1, 5), ratio = 1)

方法二：用刻度轴设置替代坐标系内的轴限 #

直接通过scale_y_continuous()定义Y轴范围，刻度设置与坐标系是独立模块，后续添加coord_flip()不会覆盖该配置：

ES <- ggplot(dfES, aes(x=Scenarios, y=Mean)) + 
  geom_bar(position=position_dodge(), stat="identity", 
           fill="lightblue", colour='black') +
  ggtitle("E-scooters") +
  geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), width=.2)+
  scale_y_continuous(limits = c(1, 5)) +
  coord_flip()

如果需要固定坐标比例，可在coord_flip()中添加ratio参数，例如coord_flip(ratio = 1)。

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