缩短分面面板中两个水平因子的平均线

Question

我有一个时间因素，有两个层次，入学和出院。我正在使用facet_grid创建四个面板，其中将按时间查看我的连续Y。我希望能够在每个面板的两个时间级别的每条中添加一条平均线。我的问题是平均线跨越了面板的整个宽度，我想将其缩短以仅保留在点的区域内。

代码如下：

plot <- ggplot(data.in, aes(x=Time, y=Y)) + geom_point()
plot <- plot + facet_grid(.~FacetGroup)
data_hline <- aggregate(data.in$Y~data.in$Time + data.in$FacetGroup, FUN=mean)
plot + geom_hline(data=data_hline, aes(yintercept=Y))