Постоянная ширина полосы ошибок с различным количеством точек данных на значение `x`

Question

Рассмотрим следующий график

d = data.frame(
    y     = rnorm(9,mean=10,sd=1),
    y_se  = 0.1,
    x     = c(1,1,1,1,2,2,2,2,3),
    color = c(1,2,3,4,1,2,3,4,1)
)

ggplot(d, aes(x = x, y = y, color = as.factor(color))) + 
  geom_point(position = position_dodge(0.3)) + 
  geom_errorbar(aes(ymax = y + y_se, ymin = y - y_se), 
                position = position_dodge(0.3), 
                width=0.2)

Все панели ошибок имеют ширину 0,2 в соответствии с запросом, кроме одного, который x категория, и это, кажется, хочет занять все пространство. Как заставить полосы ошибок самой правой точки быть такой же ширины, как и другие?