У меня есть фактор времени, который имеет два уровня, вход и выход.Я использую 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))
