Объедините Facet_zoom и geom_area в ggplot2 для измерения плотности

#r #ggplot2 #geom-area

Вопрос:

Я создаю график плотности, на котором я должен раскрасить область на основе значений оси x. И я хочу объединить это с масштабированием, чтобы построить полный сюжет, а затем увеличить цветную область

1)Чтобы увеличить масштаб, я делаю следующее:

 ggplot(data=mpg, aes(x=displ))    geom_density()   facet_zoom(ylim = c(0,0.15))    labs(title="title",  x = "x values",  y = "density")    theme_bw()  

Что дает мне

введите описание изображения здесь

  1. Затем, чтобы окрасить область, я делаю следующее
 g1g <- ggplot(data=mpg, aes(x=displ))    geom_density()    labs(title="title",  x = "x values",  y = "density")    theme_bw()  g1g_df <- ggplot_build(g1g)$data[[1]]  g1g   geom_area(data = subset(g1g_df, 5.8 < x amp; x < 6.0),  aes(x=x,y=y),  fill = "skyblue1",   color = "black")  

Что дает мне

введите описание изображения здесь

Мне не удалось объединить facet_zoom и geom_area, и я не нашел других хороших примеров в Интернете, которые я мог бы использовать.

В идеале я хочу создать картинку, на которой эта область будет окрашена в полный цвет, а затем я увеличу масштаб цветной области. Затем в увеличенной части было бы неплохо также построить только определенную часть оси x, я попытался добавить xlim в facet_zoom, но затем это не удалось, что, я думаю, связано с тем, что я использую geom_density.