行为图可能在R/ggplot2？

Question

希望你们能帮助我，我拼命地创建一个类似于此附挂的图。

完整的垂直线表示在所有领域（以及可能引发各区域的事件）共享经验。我对情节中缺乏颜色表示歉意。就我目前的目的而言，每个标签都没有关系，只是稍后我才能添加它们。

下面是一些示例数据。我目前标注所有的垂直条为“移动的一个”和所有的小酒吧，“运动二”的让一切明确的，因为我可以：

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

给

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

和

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布贝格

基本上，我们只需要在通过每个组件分别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") 

给人