將點添加到分組的條形圖（ggplot2）

Question

我有一個包含兩個時間點的測量值的數據集。 我已經制作了第一個時間點的數據的小節圖，並想為第二個時間點添加點（這只是作為參考）。 如您所見，這些點在下面，但是它們不在正確的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

Answer 1

在geom_point使用position = position_dodge(width = .9) 。