предотвратить второй aes(), чтобы переопределить диапазон осей (ylim, xlim) в ggplot2

Question

У меня есть цены со временем для разных типов продуктов. Я хочу визуализировать эволюцию разных цен в одном листе, поэтому я использую граненый ggplot. Вот моя игрушка пример:

df1 <- data.frame(time = rep(1:100, times = 5), 
        type = rep(c("A", "B", "C", "D", "E"), each = 100), 
        price = rnorm(n = 500, mean = 100)) 

gp <- ggplot(data = df1, aes(x = time, y = price)) 
# scales free because the price level of each product may be different 
gp <- gp + facet_wrap(~type, nrow = 3, ncol = 2, scales = "free") 
gp <- gp + geom_point() + geom_line() 
gp 

Это создает сюжет я хочу:

У меня также есть справочные цены для каждого вида продукции (в другом наборе данных), и я хочу указать эти цены на участке. Поэтому я использую geom_hline() следующим образом:

df2 <- data.frame(type = c("A", "B", "C", "D", "E"), 
        refprice = c(100, 105, 95, 50, 40)) 
gp <- gp + geom_hline(data = df2, aes(yintercept = refprice), facets = ~type) 

Это работает, но это может существенно изменить диапазон оси у, и я не хочу этого. Я хотел бы оставить ylim автоматически генерируемым первой частью, чтобы правильно визуализировать эволюцию цен независимо от ссылочной цены (нормально не видеть ссылочную цену, если она не относительно близка к фактической Цены).

Я знаю, что могу использовать scale_y_continuous(), coord_cartesian() или стенографию ylim() вручную установить пределы, как я хочу, но мне не нравится этот вариант, потому что либо требует жесткого кодирования ограничения или слишком много кодирования для расчета соответствующих лимитов. Поэтому я думал, что в ggplot должен быть более простой и элегантный способ избежать второго вызова для переопределения ylim и вместо этого использовать ylim, сгенерированные при первом вызове.

Я искал (я думаю, тщательно) для решения этой проблемы (SO, google, rseek), и все, что я нахожу, включает в себя решения, которые я только что сказал, что мне не нравится. Поэтому я решил опубликовать его здесь, чтобы узнать, знает ли кто-нибудь скрытую (или не настолько скрытую) функцию в ggplot2, чтобы сделать это проще и элегантнее. Большое спасибо.

Answer 1

yrange <- sapply(ggplot_build(gp)$panel$ranges, function(x) x$y.range) 
#order df2 correctly (the same order as the panels) if it isn't 

gp + geom_hline(data = df2[df2$refprice >= yrange[1,] & df2$refprice <= yrange[2,],], 
       aes(yintercept = refprice))