Verhaltensdiagramm in R/ggplot2 möglich?

Question

In der Hoffnung, dass ihr mir helfen könnt, versuche ich verzweifelt, ein Diagramm zu erstellen, das dem hier angehängten ähnlich ist.

Die vollständige vertikale Balken stellen Erfahrung in allen Bereichen geteilt (und wahrscheinlich die Ereignisse in den einzelnen Bereichen triggern). Ich entschuldige mich für den Mangel an Farbe in der Handlung. Für meine aktuellen Zwecke sind die Beschriftungen nicht wichtig, es ist nur wichtig, dass ich sie später hinzufügen kann.

Hier sind einige Beispieldaten. Ich bin derzeit alle vertikalen Balken als „Bewegung One“ und alle kleineren Bars als „Bewegung Two“ Etikettieren Dinge so klar zu halten, wie ich kann:

move_one <- 
    data.frame(
    start = c(10 , 1000, 3000) 
    , end = c(250, 1500, 4500) 
    , label = "Movement One" 
) 

move_two <- 
    data.frame(
    ind = rep(1:3, each = 3) 
    , start = c(275, 1600, 3800 
       , 20, 1010, 3010 
       , 240, 1400, 4400) 
    , end = c(295, 1750, 4400 
       , 30, 1700, 3600 
       , 290, 1800, 4500) 
    , label = "Movement Two" 
) 

Geben

start end  label 
1 10 250 Movement One 
2 1000 1500 Movement One 
3 3000 4500 Movement One 

und

ind start end  label 
1 1 275 295 Movement Two 
2 1 1600 1750 Movement Two 
3 1 3800 4400 Movement Two 
4 2 20 30 Movement Two 
5 2 1010 1700 Movement Two 
6 2 3010 3600 Movement Two 
7 3 240 290 Movement Two 
8 3 1400 1800 Movement Two 
9 3 4400 4500 Movement Two 

bzw. (diese tun nicht Spiel die Hand gezeichnete graph hier).

Answer 1

"Das ist R. Es gibt kein wenn. Nur wie." -Simon Blomberg

Grundsätzlich müssen wir nur jede Komponente einzeln an ggplot übergeben. Zuerst verwenden wir geom_rect, um die darunter liegenden vertikalen Balken zu erstellen. Fügen Sie dann die horizontalen Linien für jeden Bereich mit geom_hline hinzu. Schließlich fügen Sie die kleinen Kästen oben mit einem anderen geom_rect hinzu. Polnisch mit Achsenbeschriftungen und anderen Themeneinstellungen, die Sie von dort möchten.

ggplot() + 
    geom_rect(
    aes(xmin = start 
     , xmax = end 
     , fill = label 
     , ymin = 0 
     , ymax = 4) 
    , move_one 
) + 
    geom_hline(aes(yintercept = ind) 
      , move_two) + 
    geom_rect(
    aes(xmin = start 
     , xmax = end 
     , fill = label 
     , ymin = ind - 1/3 
     , ymax = ind + 1/3) 
    , move_two 
) + 
    xlab("Time (milliseconds)") + 
    ylab("Area") 

Gibt