आर में हिस्टोग्राम पर एक सामान्य वक्र को कैसे ओवरले करें (2 उदाहरण)


अक्सर आप आर में हिस्टोग्राम पर एक सामान्य वक्र को ओवरले करना चाह सकते हैं।

निम्नलिखित उदाहरण दिखाते हैं कि आधार R और ggplot2 में यह कैसे करें।

उदाहरण 1: आधार आर हिस्टोग्राम पर एक सामान्य वक्र आरोपित करें

हम बेस आर में हिस्टोग्राम बनाने और हिस्टोग्राम पर एक सामान्य वक्र लगाने के लिए निम्नलिखित कोड का उपयोग कर सकते हैं:

 #make this example reproducible
set. seed ( 0 )

#define data
data <-rnorm( 1000 )

#create histogram
hist_data <- hist(data)

#define x and y values to use for normal curve
x_values <- seq(min(data), max(data), length = 100 )
y_values <- dnorm(x_values, mean = mean(data), sd = sd(data)) 
y_values <- y_values * diff(hist_data$mids[1:2]) * length(data) 

#overlay normal curve on histogram
lines(x_values, y_values, lwd = 2 )

आर में हिस्टोग्राम पर सामान्य वक्र को सुपरइम्पोज़ करें

कथानक में काला वक्र सामान्य वक्र का प्रतिनिधित्व करता है।

रंग, चौड़ाई और रेखा प्रकार को संशोधित करने के लिए क्रमशः col , lwd और lty तर्कों का उपयोग करने में संकोच न करें:

 #overlay normal curve with custom aesthetics
lines(x_values, y_values, col=' red ', lwd= 5 , lty=' dashed ')

उदाहरण 2: ggplot2 में हिस्टोग्राम पर सामान्य वक्र को सुपरइम्पोज़ करें

हम ggplot2 में हिस्टोग्राम बनाने और हिस्टोग्राम पर एक सामान्य वक्र ओवरले करने के लिए निम्नलिखित कोड का उपयोग कर सकते हैं:

 library (ggplot2)

#make this example reproducible
set. seed ( 0 )

#define data
data <- data. frame (x=rnorm( 1000 ))

#create histogram and overlay normal curve
ggplot(data, aes(x)) +
  geom_histogram(aes(y = ..density..), fill=' lightgray ', col=' black ') +
  stat_function(fun = dnorm, args = list(mean=mean(data$x), sd=sd(data$x)))

आर में ggplot2 में ओवरले हिस्टोग्राम

कथानक में काला वक्र सामान्य वक्र का प्रतिनिधित्व करता है।

रंग, चौड़ाई और रेखा प्रकार को संशोधित करने के लिए क्रमशः col , lwd और lty तर्कों का उपयोग करने में संकोच न करें:

 #overlay normal curve with custom aesthetics
ggplot(data, aes(x)) +
  geom_histogram(aes(y = ..density..), fill=' lightgray ', col=' black ') +
  stat_function(fun = dnorm, args = list(mean=mean(data$x), sd=sd(data$x)),
                col=' red ', lwd= 2 , lty=' dashed '))

नोट : आप stat_function के लिए संपूर्ण दस्तावेज़यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि आर में अन्य सामान्य ऑपरेशन कैसे करें:

आर में सापेक्ष आवृत्ति हिस्टोग्राम कैसे बनाएं
आर में हिस्टोग्राम ब्रेक कैसे निर्दिष्ट करें

एक टिप्पणी जोड़ने

आपका ईमेल पता प्रकाशित नहीं किया जाएगा. आवश्यक फ़ील्ड चिह्नित हैं *