Jak używać aline() w r, aby dodawać linie proste do wykresów

Funkcji abline() w R można użyć do dodania jednej lub większej liczby linii prostych do wykresu w R.

Ta funkcja wykorzystuje następującą składnię:

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

Złoto:

• a, b: unikalne wartości określające początek i nachylenie linii
• h: wartość y linii poziomej
• v: wartość x linii pionowej

Poniższe przykłady pokazują, jak w praktyce wykorzystać tę funkcję.

Jak dodać poziome linie

Podstawowy kod dodawania linii poziomej do wykresu w R to: abline(h = pewna wartość)

Załóżmy, że mamy następujący wykres rozrzutu, który wyświetla wartości x i y w zestawie danych:

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

Aby dodać poziomą linię o wartości y = 20, możemy użyć następującego kodu:

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

Poniższy kod ilustruje sposób dodania ciągłej poziomej linii do średniej wartości y i dwóch poziomych linii przerywanych o jedno odchylenie standardowe powyżej i poniżej wartości średniej:

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

Jak dodać pionowe linie

Podstawowy kod dodawania linii pionowej do wykresu w R to: abline(v = pewna wartość)

Poniższy kod demonstruje, jak dodać pionową linię do średniej wartości na histogramie:

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

Jak dodać linie regresji

Podstawowy kod dodawania prostej linii regresji liniowej do wykresu w R to: abline(model)

Poniższy kod ilustruje sposób dodania dopasowanej linii regresji liniowej do wykresu rozrzutu:

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

Zauważ, że potrzebujemy po prostu wartości punktu przecięcia i nachylenia, aby dopasować prostą linię regresji liniowej do danych za pomocą funkcji abline().

Zatem innym sposobem użycia abline() w celu dodania linii regresji jest jawne określenie oryginalnych współczynników i współczynników nachylenia modelu regresji:

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

Zauważ, że spowoduje to utworzenie takiej samej linii jak poprzednio.

Więcej samouczków R znajdziesz na tej stronie .