ggspot2 geom_density() व्यवहार की नकल करने के लिए ggplot2 geom_density() में x सीमा xlim() को समायोजित करना

Question

क्या ggplot2 के geom_density() फ़ंक्शन को ggvis के layer_densities() के व्यवहार की नकल करने का कोई तरीका है? यही है, इसे p1 पर कॉल किए बिना p3 (नीचे देखें) जैसा दिखता है? विशेष रूप से, मैं उस दृश्य को पसंद करता हूं जो घनत्व वक्र की पूंछ को सुचारू बनाता है।

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 आउटपुट:

ggplot2 "डिफ़ॉल्ट":

ggplot2 "वांछित":

नोट: एक ggvis निम्नलिखित के माध्यम से ggplot2 की नकल कर सकते हैं (trim=TRUE का उपयोग करके), लेकिन मैं दूसरी दिशा जाना चाहूंगा ...

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

Answer 1

xlim पर कॉल करने के बारे में, लेकिन प्रोग्रामेटिक रूप से परिभाषित सीमाओं के साथ कैसे?

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

नकारात्मक पक्ष यह है हालांकि डबल घनत्व आकलन है, इसलिए रखें कि मन में।