用ggplot geom_boxplot生成箱线图时，美学与数据集不匹配

Question

enter image description here

我认为链接是指向我的地块的照片-如果不是的话；我的图表上有3列对应于3个不同级别的因素（保护状态）。 y轴是“估计占用率”，因此数据从0变为1，但是我将其扩展为1.5。这是因为前两列的误差线在y = 1之前延伸。但是，当我将图的ylim更改为1.5时，第三列的误差线（在0.56处达到峰值）增加了一倍。

为什么会这样/我该怎么做才能解决此问题。

下面是我的代码；

preddata <- predict(wf_PRO2, type = "state", appendData = TRUE)
head(preddata)
wf_PRO2=qplot(Site.Covs.Wolves1B$Prot_Stat, Predicted, data = preddata, geom = "col", 
              xlab = "Protected Status", ylab = "Estimated occupancy", ylim=c(0, 1.5)) +
  geom_col(aes(x = Site.Covs.Wolves1B$Prot_Stat, ymin = lower, ymax = upper)) +
  geom_errorbar(aes(ymin = Predicted-SE, ymax = Predicted+SE), width=.2,
                position = position_dodge(.9))
  theme_bw()+#sets the background of the plot to white
  theme(axis.text=element_text(size=14), axis.line=element_line(colour="black"),
        axis.title=element_text(size=15),
        panel.grid.major = element_blank(),#remove grid lines in background
        panel.grid.minor = element_blank(),
        legend.text=element_text(size=25))
        panel.border = element_blank()

wf_PRO2