Почему моя полоса увеличивается вдвое при построении geom_col?

Question

введите описание изображения здесь

Я рисую оценки занятости по отношению к категориальной переменной для различных типов защищенного статуса. Я использую geom_col, так как хочу, чтобы на графике отображались эти значения занятости, а не количество сайтов каждого защищенного статуса, которые будут отображаться с помощью geom_bar.

Тем не менее, когда я строю график, столбец для наименьшей оценки занятости в защищенном состоянии 1 удваивается. Я знаю на основе линейного графика (неправильный график, поэтому моя попытка с geom_col построена с теми же данными, что полоса ошибок верна, а полоса неверна. Я ввожу код ниже, но не могу точно понять, почему столбец удвоение.

preddata <- predict(lp_PRO2, type = "state", appendData = TRUE)
head(preddata)
lp_PRO2=qplot(Site.Covs.Lep3$Prot_Stat, Predicted, data = preddata, geom = "col", 
              xlab = "Protected Status", ylab = "Estimated occupancy", ylim=c(0,1)) +
  geom_col(aes(x = Site.Covs.Lep3$Prot_Stat, ymin = 0, ymax = 1)) +
  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()

lp_PRO2