tengo unggplot2 gráfico de líneas con dos líneas con superposición significativa. Estoy tratando de usarposition_jitterdodge() para que sean más visibles, pero no puedo obtener las líneas y los puntos para ambas fluctuaciones de la misma manera. Estoy tratando de fluctuar los puntos y la línea solo horizontalmente (ya que no quiero sugerir ningún cambio en el eje y). Aquí hay un 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")

Lo que produce lo feo:

Obviamente tengo algo fundamentalmente mal aquí: ¿qué debo hacer para hacergeom_point jitter sigue elgeom_line ¿estar nervioso?