ggplot2 смещение точек диаграммы рассеяния

У меня есть два набора точек с планками погрешностей. Я хотел бы сместить второй, чтобы он отображался немного ниже первого набора, чтобы он не заслонял оригинал.

Вот фиктивный набор данных:

x=runif(4,-2,2)
y=c("A","B","C","D")
upper=x+2
lower=x-2
x_1=runif(4,-1,3)
upper_1=x_1+1
lower_1=x_1-2

Вот код, который я использовал для создания plot:

qplot(x,y)+
  geom_point(size=6)+
  geom_errorbarh(aes(xmax=upper,xmin=lower),size=1)+
  geom_point(aes(x_1,y),size=6,pch=8,vjust=-1,col="grey40")+
  geom_errorbarh(aes(xmax=upper_1,xmin=lower_1),size=1,col="grey40")

А вот график:

Я хотел бы, чтобы серые звездочки и связанные с ними полосы ошибок были нанесены чуть ниже черных кружков и связанных с ними полос ошибок. Я бы преобразовал набор данных, но ось Y - это категориальные переменные.