प्लॉट में सीधी रेखाएँ जोड़ने के लिए r में aline() का उपयोग कैसे करें

R में abline() फ़ंक्शन का उपयोग R में किसी प्लॉट में एक या अधिक सीधी रेखाएँ जोड़ने के लिए किया जा सकता है।

यह फ़ंक्शन निम्नलिखित सिंटैक्स का उपयोग करता है:

एबलाइन(ए=शून्य, बी=शून्य, एच=शून्य, वी=शून्य,…)

सोना:

• ए, बी: अद्वितीय मान जो रेखा की उत्पत्ति और ढलान को निर्दिष्ट करते हैं
• h: क्षैतिज रेखा के लिए y मान
• v: ऊर्ध्वाधर रेखा के लिए x मान

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

क्षैतिज रेखाएं कैसे जोड़ें

R में किसी प्लॉट में क्षैतिज रेखा जोड़ने का मूल कोड है: abline(h = कुछ मान)

मान लीजिए कि हमारे पास निम्नलिखित स्कैटरप्लॉट है जो डेटा सेट में x और y के मान प्रदर्शित करता है:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#plot x and y values in dataset
plot(data$x, data$y, pch = 16)

मान y = 20 पर एक क्षैतिज रेखा जोड़ने के लिए, हम निम्नलिखित कोड का उपयोग कर सकते हैं:

 abline(h = 20, col = 'coral2', lwd = 2)

निम्नलिखित कोड दिखाता है कि y के औसत मान में एक ठोस क्षैतिज रेखा और औसत मान के ऊपर और नीचे दो क्षैतिज बिंदीदार रेखाएं एक मानक विचलन कैसे जोड़ें:

 #create scatterplot for x and y
plot(data$x, data$y, pch = 16)

#create horizontal line at mean value of y
abline(h = mean(data$y), lwd = 2)

#create horizontal lines at one standard deviation above and below the mean value
abline(h = mean(data$y) + sd(data$y), col = 'steelblue', lwd = 3, lty = 2)
abline(h = mean(data$y) - sd(data$y), col = 'steelblue', lwd = 3, lty = 2)

लंबवत रेखाएं कैसे जोड़ें

R में किसी प्लॉट में लंबवत रेखा जोड़ने के लिए मूल कोड है: abline(v = कुछ मान)

निम्नलिखित कोड दर्शाता है कि हिस्टोग्राम पर औसत मान में एक ऊर्ध्वाधर रेखा कैसे जोड़ी जाए:

 #make this example reproducible
set.seed(0)

#create dataset with 1000 random values normally distributed with mean = 10, sd = 2
data <- rnorm(1000, mean = 10, sd = 2)

#create histogram of data values
hist(data, col = 'steelblue')

#draw a vertical dashed line at the mean value
abline(v = mean(data), lwd = 3, lty = 2)

प्रतिगमन रेखाएँ कैसे जोड़ें

आर में एक प्लॉट में एक सरल रैखिक प्रतिगमन रेखा जोड़ने के लिए मूल कोड है: एबलाइन (मॉडल)

निम्नलिखित कोड दर्शाता है कि स्कैटरप्लॉट में फिट की गई रैखिक प्रतिगमन रेखा को कैसे जोड़ा जाए:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#create scatterplot of x and y values
plot(data$x, data$y, pch = 16)

#fit a linear regression model to the data
reg_model <- lm(y ~ x, data = data)

#add the fitted regression line to the scatterplot
abline(reg_model, col="steelblue")

ध्यान दें कि हमें एबलाइन() फ़ंक्शन का उपयोग करके डेटा में एक सरल रैखिक प्रतिगमन रेखा को फिट करने के लिए केवल इंटरसेप्ट और ढलान के लिए एक मान की आवश्यकता है।

तो, प्रतिगमन रेखा जोड़ने के लिए abline() का उपयोग करने का दूसरा तरीका प्रतिगमन मॉडल के मूल और ढलान गुणांक को स्पष्ट रूप से निर्दिष्ट करना है:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#create scatterplot of x and y values
plot(data$x, data$y, pch = 16)

#fit a linear regression model to the data
reg_model <- lm(y ~ x, data = data)

#define intercept and slope values
a <- coefficients(reg_model)[1] #intercept
b <- coefficients(reg_model)[2] #slope

#add the fitted regression line to the scatterplot
abline(a=a, b=b, col="steelblue")

ध्यान दें कि यह पहले की तरह ही लाइन उत्पन्न करता है।

आप इस पृष्ठ पर अधिक आर ट्यूटोरियल पा सकते हैं।