R/ggplot2でビヘイビアグラフが可能ですか？

Question

皆さん、お手伝いをしたいと思いますが、ここに添付されているようなグラフを作成しようとしています。

完全な垂直バーは、（各地域でイベントをトリガする可能性が高いと）すべての領域間で共有体験を表しています。私はプロットの色の欠如についてお詫び申し上げます。私の現在の目的では、それぞれのラベルは重要ではありませんが、後でそれらを追加することができます。

ここにいくつかのサンプルデータがあります。私は現在、私ができるよう明らかなように、物事を保つために「運動二」など小さなバーの「運動の一つ」として、垂直バーのすべてとすべてを標識しています：

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

を与える

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

と

それぞれ

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 

（これらはここにグラフを描かれた手と一致しません）。

Answer 1

「これはRです。 - Simon Blomberg

基本的には、各コンポーネントを別々にggplotに渡すだけです。まず、geom_rectを使用して、下にある垂直バーを作成します。次に、各領域の水平線をgeom_hlineで追加します。最後に、上部に小さいボックスを別のgeom_rectで追加します。あなたがそこから望む軸ラベルとその他のテーマ設定でポーランド語。

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

あなたは、少なくとも垂直「バンドが」に対応するものを理解することも困難である運動1と運動2に対応する2つの異なる色を使用することができます