如何使 geom_line 和 geom_point 抖动相同的幅度？

我有一个ggplot2具有显着重叠的两条线的折线图。我正在尝试使用position_jitterdodge()这样它们就更明显了，但我无法以相同的方式让线条和点都抖动。我试图仅水平抖动点和线（因为我不想建议 y 轴上的任何更改）。这是一个 MWE：

## Create data frames
dimension <- factor(c("A", "B", "C", "D"))
df <- data.frame("dimension" = rep(dimension, 2),
                 "value" = c(20, 21, 34, 32,
                             20, 21, 36, 29),
                 "Time" = c(rep("First", 4), rep("Second", 4)))
## Plot it
ggplot(data = df, aes(x = dimension, y = value,
                      shape = Time, linetype = Time, group = Time)) +
    geom_line(position = position_jitterdodge(dodge.width = 0.45)) +
    geom_point(position = position_jitterdodge(dodge.width = 0.45)) +
    xlab("Dimension") + ylab("Value")

这会产生丑陋的结果：

我显然在这里犯了根本性的错误：我应该怎么做才能使geom_point抖动遵循geom_line jitter?

仅水平的另一个选项是指定position_dodge并将其传递给position每个几何对象的参数。

pd <- position_dodge(0.4)

ggplot(data = df, aes(x = dimension, y = value,
                      shape = Time, linetype = Time, group = Time)) +
  geom_line(position = pd) +
  geom_point(position = pd) +
  xlab("Dimension") + ylab("Value")