如何在Shiny中绘制y轴取值固定的交互式柱状图？

默认情况下ggplot会根据传入的数据集自动计算y轴的上下限，因此你滑动Shiny滑块更新绘图数据时，y轴范围会随之自动调整。要固定范围只需要在ggplot的链式调用中添加y轴范围限制参数即可：

方法1：直接使用ylim()设置（适配你的需求场景） #

直接指定y轴的上下限，修改后的代码如下：

q=ggplot(meantb_bar,aes(x = yi, y = Error_Square))+ 
  geom_bar(stat = "identity",fill="deepskyblue3") +
  ylim(0, 20000) + # 新增该行固定y轴范围为0到20000
  labs(x = "yi", y = "(y_i-y^)^2")+
  geom_text(aes(label = Error_Square))

ggplotly(q,width=500)

方法2：使用coord_cartesian()设置（适配存在超出上限数据的场景） #

如果你的数据存在超过20000的取值，不希望ggplot自动裁剪超出范围的柱形，就把上面新增的ylim(0,20000)替换为下方代码即可，该参数仅限制显示范围，不会修改原始绘图数据：

coord_cartesian(ylim = c(0, 20000))

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