R: ggplot2 satırında hem geom_line hem de geom_point ile jitter nasıl yazılır?

Question

ggplot2 satırında iki satırlık kayda değer çakışmaya sahip bir satır var. position_jitterdodge()'u daha görünür hale getirmeye çalışıyorum, ancak çizgiler ve noktaları her ikisine de aynı şekilde alamıyorum. Noktaları ve çizgiyi sadece yatay olarak çizmeye çalışıyorum (y ekseninde herhangi bir değişiklik önermek istemediğimden).

## 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") 

çirkin üretir Hangi: İşte bir MWE olan

Açıkçası burada temelden yanlış bir şey var: Ben geom_point seğirme geom_line titremeleri izlemesini sağlamak için ne yapmalıyım?

Answer 1

Yalnızca yatay için başka bir seçenek, position_dodge belirtmek ve bunu her bir geom için position bağımsız değişkenine iletmektir.

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") 

Answer 2

bir çözüm noktalarını elle titreme şudur:

df$value_j <- jitter(df$value) 

ggplot(df, aes(dimension, value_j, shape=Time, linetype=Time, group=Time)) + 
    geom_line() + 
    geom_point() + 
    labs(x="Dimension", y="Value") 

sizin ayrık X ekseni için yatay çözeltisi (temiz olarak temiz değil under the covers işlediği beri ggplot2 bunu yaptığında eksen ve nokta oldukça güzel sizin için dönüşümler) ama bu mümkün:

df$dim_j <- jitter(as.numeric(factor(df$dimension))) 

ggplot(df, aes(dim_j, value, shape=Time, linetype=Time, group=Time)) + 
    geom_line() + 
    geom_point() + 
    scale_x_continuous(labels=dimension) + 
    labs(x="Dimension", y="Value")