आर में सर्वश्रेष्ठ फ़िट की रेखा कैसे बनाएं (उदाहरण के साथ)

आप R में सर्वोत्तम फ़िट की रेखा खींचने के लिए निम्न में से किसी भी विधि का उपयोग कर सकते हैं:

विधि 1: आर बेस में सर्वोत्तम फिट की रेखा खींचें

 #create scatter plot of x vs. y
plot(x, y)

#add line of best fit to scatter plot
abline(lm(y ~ x))

विधि 2: ggplot2 में सर्वोत्तम-फिट लाइन प्लॉट करें

 library (ggplot2)

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point() +
    geom_smooth(method=lm, se= FALSE )

निम्नलिखित उदाहरण दिखाते हैं कि व्यवहार में प्रत्येक विधि का उपयोग कैसे करें।

उदाहरण 1: आर बेस में सर्वोत्तम फिट की रेखा खींचना

निम्नलिखित कोड दिखाता है कि आर आधार का उपयोग करके एक सरल रैखिक प्रतिगमन मॉडल के लिए सबसे उपयुक्त रेखा कैसे खींची जाए:

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(2, 5, 6, 7, 9, 12, 16, 19)

#create scatter plot of x vs. y
plot(x, y)

#add line of best fit to scatter plot
abline(lm(y ~ x)) 

बिंदुओं और रेखा की शैली को संशोधित करने में भी संकोच न करें:

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(2, 5, 6, 7, 9, 12, 16, 19)

#create scatter plot of x vs. y
plot(x, y, pch= 16 , col=' red ', cex= 1.2 )

#add line of best fit to scatter plot
abline(lm(y ~ x), col=' blue ', lty=' dashed ') 

सर्वोत्तम फ़िट की पंक्ति की त्वरित गणना करने के लिए हम निम्नलिखित कोड का भी उपयोग कर सकते हैं:

 #find regression model coefficients
summary(lm(y ~ x))$coefficients

              Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.8928571 1.0047365 -0.888648 4.084029e-01
x 2.3095238 0.1989675 11.607544 2.461303e-05

सर्वोत्तम फिट की रेखा इस प्रकार है: y = -0.89 + 2.31x ।

उदाहरण 2: ggplot2 में सर्वोत्तम-फिट लाइन प्लॉट करना

निम्नलिखित कोड दिखाता है कि ggplot2 डेटा विज़ुअलाइज़ेशन पैकेज का उपयोग करके एक सरल रैखिक प्रतिगमन मॉडल के लिए सबसे उपयुक्त लाइन कैसे प्लॉट की जाए:

 library (ggplot2)

#define data
df <- data. frame (x=c(1, 2, 3, 4, 5, 6, 7, 8),
y=c(2, 5, 6, 7, 9, 12, 16, 19))

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point() +
    geom_smooth(method=lm, se= FALSE )

कथानक के सौंदर्यशास्त्र को भी बदलने के लिए स्वतंत्र महसूस करें:

 library (ggplot2)

#define data
df <- data. frame (x=c(1, 2, 3, 4, 5, 6, 7, 8),
y=c(2, 5, 6, 7, 9, 12, 16, 19))

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point(col=' red ', size= 2 ) +
    geom_smooth(method=lm, se= FALSE , col=' purple ', linetype=' dashed ') +
    theme_bw() 

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

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

आर में सरल रैखिक प्रतिगमन कैसे करें
आर में मल्टीपल लीनियर रिग्रेशन कैसे करें
आर में प्रतिगमन आउटपुट की व्याख्या कैसे करें