ggplot2：改变geom_segment甘特图中段的颜色？

Question

我正在尝试在 ggplot2 中制作甘特图。我在更改 geom_segment() 中每个段的颜色和间距时遇到了麻烦

> head(g672)
mobility    start  endtime
1    active  0.00000  1.60157
3    active  1.60157 59.65837
5    active 59.65840 68.93415
7  immobile 68.93420 69.03430
9    active 69.03430 77.87629
11 immobile 77.87620 80.27855

我正在使用 geom_segment() 来生成图表：

ggplot(g672, aes(colour=mobility)) + 
  geom_segment(aes(x=start, xend=endtime, y=mobility, yend=mobility), size=15) +
  xlab("Duration") +
  theme_classic()

生成此图表：

我希望能够做 2 件事：1) 更改颜色和 2) 使 2 个条看起来彼此更接近，甚至让它们重叠（这些是相互排斥的类别，所以如果你是不做一个，你做另一个）。

欢呼并感谢您的任何建议

Answer 1

我的解决方案是使用一些字符作为y 和yend 值（这将使段重叠）。然后，您可以使用 theme() 和 axis.text.y= 和 axis.title.y= 从轴中删除此字符。您可以使用scale_color_manual() 更改颜色。

ggplot(g672, aes(colour=mobility)) + 
      geom_segment(aes(x=start, xend=endtime, y="a", yend="a"), size=15) +
      xlab("Duration") +
      theme_classic()+
      scale_color_manual(values=c("black","green"))+
      theme(axis.text.y=element_blank(),
            axis.title.y=element_blank())