введите описание изображения здесь
Я строю оценки занятости относительно категориальной переменной различных типов защищенного статуса. Я использую 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