Ширина полосы управления в ggplot

Я создаю различные графики доли устойчивости к противомикробным препаратам для набора патогенов, тестируемых в наборе образцов. Каждый патоген тестируется на разное количество противомикробных препаратов. По этой причине, когда я создаю графики для каждого патогена и каждого образца, ширина полос у всех разная. Я попытался установить width=.5, position = position_dodge(width=.2), но ничего не происходит.

prop <- read_csv("")
attach(prop)
propna<-na.omit(prop)


#calculate CI
results_CI<-cbind(propna, with (propna, binconf(propna$RES, propna$AST, method="wilson"))) 
results_CI<- rename(results_CI, c(antibiotic_label2="Antibiotic"))
results_CI<- rename(results_CI, c(PointEst="Resistance"))
results_CI$Antibiotic <- factor(results_CI$Antibiotic,levels=c("Amikacin","Spectinomycin", 
                                                               "Gentamicin", "Doripenem", "Ertapenem", "Imipenem", "Meropenem", "Ciprofloxacin", 
                                                               "Levofloxacin","Azithromycin",
                                                               "Ampicillin", "Colistin", "Minocycline", "Tigecycline","Cefoxitin", "Oxacillin", 
                                                               "Penicillin G", "Co-trimoxazole", 
                                                               "Cefotaxime", "Ceftazidime", "Cefixime","Ceftriaxone", "Cefepime"))

for(i in unique(results_CI$pathogen)) {

  ggplot(results_CI[results_CI$pathogen==i,], aes(y=Resistance, x=Antibiotic)
  ) +  scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
    geom_bar( width=.5 ,position = position_dodge(width=.2), stat="identity")+ 
    geom_errorbar(aes(ymin=Lower, ymax=Upper),
                  width=.2,                    # Width of the error bars
                  position=position_dodge(.9))+
    coord_flip()+theme_classic()+facet_grid(~specimen)
  ggsave(file=paste("graphoverview", i, ".png", sep=""))
}