title: One error bar on each plot is in weird spot in Rggplot
body: <p>I have a error bar which is in the wrong place on each plot, i have checked the raw data and nothing unusual is there, i have also tried changing the y limits but that doesnt change anything. Anyone have a clue how to make these error bars normal. I have my code below</p>
  <pre><code>#Nutrients 
  Nutrient_soil &lt;- read.csv(&quot;C:\\Users\\ezxct5\\OneDrive - The University of Nottingham\\Project Data\\Data\\Experiment summary data sets\\Kale , char alkaline soil\\Soil Nutrient R ready.csv&quot;)
  str(Nutrient_soil)
  Nutrient_soil$Char.Type &lt;-as.factor(Nutrient_soil$Char.Type)
  Nutrient_soil$Application.rate....&lt;-as.factor(Nutrient_soil$Application.rate....)
  Nutrient_soil$Particle.size &lt;- as.factor(Nutrient_soil$Particle.size)
  
  #P
  Pbar&lt;-ggplot(Nutrient_soil,)+
  geom_bar(aes(x=Treatment, y=P),stat=&quot;identity&quot;)+
  theme_classic()+
  theme(axis.text.x=element_text(angle=90, size=8, color=&quot;black&quot;))+
  geom_errorbar(aes(x=Treatment,ymin=P-p.s.e, ymax=P+p.s.e),width=0.3, position=position_dodge(0.9))+
  ylab(&quot;P (mg/kg)&quot;)
  
  
  
  
  #K
  Kbar &lt;- ggplot(Nutrient_soil)+
  geom_bar(aes(x=Treatment, y=K),stat=&quot;identity&quot;)+
  theme_classic()+
  theme(axis.text.x=element_text(angle=90, size=8, color=&quot;black&quot;))+
  geom_errorbar(aes(x=Treatment,ymin=K-k.s.e, ymax=K+k.s.e),width=0.3, position=position_dodge(0.9))+
  ylab(&quot;K (mg/kg)&quot;)
  
  
  #Ca
  Cabar&lt;-ggplot(Nutrient_soil)+
  geom_bar(aes(x=Treatment, y=Ca),stat=&quot;identity&quot;)+
  theme_classic()+
  theme(axis.text.x=element_text(angle=90, size=8, color=&quot;black&quot;))+
  geom_errorbar(aes(x=Treatment,ymin=Ca-ca.s.e, ymax=Ca+ca.s.e),width=0.3, position=position_dodge(0.9))+
  ylab(&quot;Ca (mg/kg)&quot;)
  #Mg
  Mgbar &lt;- ggplot(Nutrient_soil)+
  geom_bar(aes(x=Treatment, y=Mg),stat=&quot;identity&quot;)+
  theme_classic()+
  theme(axis.text.x=element_text(angle=90, size=8, color=&quot;black&quot;))+
  geom_errorbar(aes(x=Treatment,ymin=Mg-mg.s.e, ymax=Mg+mg.s.e),width=0.3, position=position_dodge(0.9))+
  ylab(&quot;Mg (mg/kg)&quot;)
  
  plot_grid(Pbar, Kbar, Cabar, Mgbar, labels=c(&quot;a&quot;,&quot;b&quot;,&quot;c&quot;,&quot;d&quot;), label_size=12)
  </code></pre>
  <p><a href="https://i.stack.imgur.com/4boqJ.png" rel="nofollow noreferrer">Graph result</a></p>