gglplot no muestra bigotes para barras de error

Cambiar de widthno está ayudando. Aquí está la imagen y el código: IMAGEN

p <-
  ggplot(axis_df, aes(x_axis, y_axis)) +
  geom_point() +
  geom_smooth(na.rm = T, method = 'lm', se = T, level = 0.95, alpha = 0) +
  labs(x = 'Летний период по годам, N', y = 'Биолюминесцентный потенциал (BL) \n в слое 0-35, 10^-12Вт/см^2*л') +
  scale_x_continuous(n.breaks = 11, labels = labels, limits = c(2010, 2020)) +
  scale_y_continuous(breaks = seq(0, 100000, 10000), labels = format(seq(0, 100000, 10000), scientific = F)) +
  coord_cartesian(ylim = c(0, 100000)) +
  theme_light()

p + 
  theme(plot.margin = unit(c(1, 1, 1, 1), 'cm'),
        axis.title.x = element_text(vjust = -1, size = 13.5),
        axis.title.y = element_text(vjust = 6, size = 13.5),
        axis.ticks.x = element_line(colour = 'black'),
        axis.ticks.y = element_line(colour = 'black'),
        axis.ticks.length.x = unit(0.25, 'cm'),
        axis.ticks.length.y = unit(0.2, 'cm'),
        axis.line.x = element_line(colour = 'black'),
        axis.line.y = element_line(colour = 'black'),
        axis.text.x = element_text(angle = 45, size = 12, margin = margin(10)),
        axis.text.y = element_text(size = 12)) +
  annotate('text', x = 2012.5, y = 50000, label = "BL = 53721 - 3191 * N", angle = -13.5) +
  annotate('text', x = 2017.5, y = 88000, label = "paste(R ^ 2, \" = 0.24\")", parse = T, size = 4) +
  annotate('text', x = 2017.68, y = 82000, label = 'p = 0.00005', size = 4) +
  geom_line(data = ci, mapping = aes(x = xvals, y = lwr), linetype = "dashed") +
  geom_line(data = ci, mapping = aes(x = xvals, y = upr), linetype = "dashed") +
  geom_errorbar(aes(ymax = upper, ymin = lower), width = 0.4)
Answer