在ggplot中的geom_bar上覆盖geom_points

Question

我正在创建一个图形，其中geom_bar的长度表示每个人在活动中花费的时间。现在，我想在活动中的实例上分层（使用geom_point）。

我读了另一个问题Plotting geom_bar and geom_point together?，使我深深地了解了我。

library(ggplot2)
plot1<-ggplot(tt,aes(x=Actor,y=Task.Time))+
  geom_bar(stat='identity')+
  coord_flip()+
  xlab("")+
  geom_point(data=data.frame(x=0:940,y=0), aes(x=2,y=941))+
  geom_point(data=data.frame(x=0:940,y=0), aes(x=1,y=941))

请注意，最长花费的时间为940秒。我需要实例（几何点）来放置条。现在它们存在的点不正确。 Renee的y值存储在r $ Qualifier..Time中，而Gia则存储在g $ Qualifier..Time中。我还想将点的形状和颜色设置为限定符类型，分别存储在g $ Qualifier和r $ Qualifier中。谢谢！

Answer 1

基于几分钟前OP中的数据：

p1  x1,x2,x9
p2  x2,x6,x10
p7  x4,x8
p5  x5,x7