Cara menggunakan aline() di r untuk menambahkan garis lurus ke plot

Fungsi abline() di R dapat digunakan untuk menambahkan satu atau lebih garis lurus ke plot di R.

Fungsi ini menggunakan sintaks berikut:

abline(a=NULL, b=NULL, h=NULL, v=NULL, …)

Emas:

• a, b: nilai unik yang menentukan asal dan kemiringan garis
• h : nilai y untuk garis horizontal
• v : nilai x untuk garis vertikal

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Bagaimana cara menambahkan garis horizontal

Kode dasar untuk menambahkan garis horizontal ke plot di R adalah: abline(h = beberapa nilai)

Misalkan kita memiliki diagram sebar berikut yang menampilkan nilai x dan y dalam kumpulan data:

 #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)

Untuk menambahkan garis horizontal pada nilai y = 20, kita dapat menggunakan kode berikut:

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

Kode berikut mengilustrasikan cara menambahkan garis horizontal padat pada nilai rata-rata y dan dua garis putus-putus horizontal satu standar deviasi di atas dan di bawah nilai rata-rata:

 #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)

Cara menambahkan garis vertikal

Kode dasar untuk menambahkan garis vertikal ke plot di R adalah: abline(v = beberapa nilai)

Kode berikut menunjukkan cara menambahkan garis vertikal ke nilai rata-rata pada histogram:

 #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)

Bagaimana cara menambahkan garis regresi

Kode dasar untuk menambahkan garis regresi linier sederhana ke plot di R adalah: abline(model)

Kode berikut menunjukkan cara menambahkan garis regresi linier yang sesuai ke plot sebar:

 #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")

Perhatikan bahwa kita hanya memerlukan nilai intersep dan kemiringan agar sesuai dengan garis regresi linier sederhana ke data menggunakan fungsi abline().

Jadi, cara lain menggunakan abline() untuk menambahkan garis regresi adalah dengan secara eksplisit menentukan koefisien asli dan koefisien kemiringan model regresi:

 #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")

Perhatikan bahwa ini menghasilkan baris yang sama seperti sebelumnya.

Anda dapat menemukan lebih banyak tutorial R di halaman ini .