R 向分组条形图（ggplot2）添加点

我有一个包含两个时间点测量值的数据集。我已经绘制了第一个时间点的数据条形图，并想为第二个时间点添加点（这只是作为参考）。正如您在下面看到的，这些点在那里，但它们不在正确的x轴位置（即，它们都位于相同的x轴值上，与条形图不同）

如何解决这个问题

library(ggplot2)

MyData = data.frame(
  method=rep(c("A","B","C","D","E"),times=3),
  time1=rnorm(30,10,3),
  time2=rnorm(30,8,2),
  lab=rep(rep(c(1,2,3),each=5),times=2),
  cat=rep(c(1,2),each=15)
)

p <- ggplot(data = MyData,
            aes(x=lab)) +
  geom_bar(aes(y=time1,fill=method),
           stat="identity",
           position="dodge",
           alpha=.7
  ) +
  geom_point(aes(y=time2,group=method),
           stat="identity",
           position="dodge",
           alpha=.8,
           size=3) +
  scale_fill_brewer(palette=3) +
  facet_grid(. ~ cat)
p

库（ggplot2）
MyData=data.frame(
方法=重复（c（“A”、“B”、“c”、“D”、“E”），次数=3），
时间1=rnorm（30,10,3），
time2=rnorm（30,8,2），
lab=rep（rep（c（1,2,3），每个=5），乘以=2），
cat=rep（c（1,2），每个=15）
)
p在
geom\u点
中使用
position=position\u dodge（宽度=0.9）