x sınırlarının ayarlanması xlim() in ggplot2 geom_density() mimic ggvis layer_densities() davranışı

Question

ggplot2's geom_density() işlevinin ggvis'in layer_densities() davranışını taklit etmesinin bir yolu var mı? Yani 'a benziyor (aşağıya bakın) xlim() aramasına gerek kalmadan? Özellikle, yoğunluk eğrisinin kuyruklarını düzgünleştiren görünümü tercih ediyorum.

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 Çıktı:

ggplot2 "varsayılan":

ggplot2 "istenen":

Not: Bir ggvis aşağıdaki yoluyla ggplot2 taklit yapabilirsiniz (trim=TRUE kullanarak, ancak diğer yöne gitmek istiyorum ...

faithful %>% 
    compute_density(~waiting, trim=TRUE) %>% 
    ggvis(~pred_, ~resp_) %>% 
    layer_lines() 

Answer 1

xlim numaralı telefonu arama konusunda, ancak program aracılığıyla tanımlanmış olan sınırlarla nasıl?

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

olumsuz olsa çift yoğunluklu tahmini olduğunu, böylece akılda tutmak.