Anpassen von x-Grenzen xlim() in ggplot2 geom_density() zum Nachahmen von ggvis layer_densities() Verhalten

Question

Gibt es eine Möglichkeit, die geom_density() Funktion von ggplot2 das Verhalten von ggvis layer_densities() nachzuahmen? Das heißt, machen Sie es so p1 sieht wie p3 (siehe unten) ohne den Anruf zu xlim() aus? Insbesondere bevorzuge ich die Ansicht, die die Schwänze der Dichtekurve glättet.

library(ggvis) 
library(ggplot2) 

faithful %>% 
    ggvis(~waiting) %>% 
    layer_densities(fill := "green") -> p1 

ggplot(faithful, aes(x = waiting)) + 
    geom_density(fill = "green", alpha = 0.2) -> p2 

ggplot(faithful, aes(x = waiting)) + 
    geom_density(fill = "green", alpha = 0.2) + 
    xlim(c(30, 110)) -> p3 

p1 
p2 
p3 

ggvis Ausgang:

ggplot2 "default":

ggplot2 "gewünschte":

Hinweis: Man kann ggvis imitieren machen ggplot2 über die folgende (mit trim=TRUE), aber ich würde gerne die andere Richtung gehen ...

Answer 1

Wie wäre es mit dem Aufruf xlim, aber mit Grenzen, die programmgesteuert definiert sind?

l <- density(faithful$waiting) 
ggplot(faithful, aes(x = waiting)) + 
    geom_density(fill = "green", alpha = 0.2) + 
    xlim(range(l$x)) 

Der Nachteil ist, mit doppelter Dichte Schätzung obwohl, so dass im Auge behalten.