我有一个时间因素，有两个层次，入院和出院。我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))
