r - geom_density doesn't fill correctly with scale_y_log10 -

कोड:

  की आवश्यकता है (ggplot2) set.seed (0) xvar & lt; - (100) ggplot (डेटा.फ्रेम (xvar), एईएस (xvar)) + जीओएम_डेंसी (भरण = "लाइटब्लू") + scale_y_log10 ()  

ग्राफ़ कुछ ऐसा है: < Img src = "https://i.stack.imgur.com/9E4f3.png" alt = "badgraph">

मैं कैसे दाएं किनारे पर ग्राफ शेड कर सकता हूँ (जैसे नीचे) घनत्व का अनुमान?

समस्या यह है कि डिफ़ॉल्ट रूप से stat_density के बीच भरता है घनत्व और रूपांतरित किए गए डेटा के y = 0 लाइन तो परिवर्तनों को जो y = 0 लाइन को बदलते हैं, इस प्रकार की समस्याओं के शिकार शिकार गिर जाएगी। मैं व्यक्तिगत तौर पर लगता है कि यह ggplot2 में एक बग है, हालांकि जब से ग्राफिकल व्याकरण के विशेषज्ञ शायद तर्क देते हैं कि y- परिवर्तित घनत्व अर्थहीन हैं, बग को बहुत अधिक ध्यान नहीं मिल सकता है।

A बहुत ही क्लीजी वर्कअराउंड मैन्युअल रूप से .. घनत्व .. पर ऑफसेट जोड़ना है, जिसे आपको स्पष्ट रूप से आह्वान करना होगा, और फिर इसे बनाने के लिए ब्रेक को बदलना होगा जैसे आप कुछ अजीब नहीं करते। / P>

  की आवश्यकता होती है (ggplot2) की आवश्यकता है (तराजू) set.seed (0) xvar & lt; - rnorm (100000) क्वार्ट्ज (ऊंचाई = 4, चौड़ाई = 6) ggplot (data.frame (xvar) एईएस (x = xvar, y = log10 (.. घनत्व ..) + 4)) + जीओएम_डेंसिटी (भरें = 'लाइटब्लू') + स्केल_आई_कंटिएंस (ब्रेक्स = सी (0,1,2,3,4), लेबल = सी ('0.0001', '0.001', '0.01', '0.1', '1'), सीमा = सी (0,4), नाम = 'घनत्व') quartz.save ('! [StackOverflow_29111741_v2] [1] पीजीएन ')  

यह कोड इस ग्राफ का उत्पादन करता है: