R에서 aline()을 사용하여 플롯에 직선을 추가하는 방법

R의 abline() 함수는 R의 플롯에 하나 이상의 직선을 추가하는 데 사용할 수 있습니다.

이 함수는 다음 구문을 사용합니다.

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

금:

• a, b: 선의 원점과 기울기를 지정하는 고유 값
• 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 의 평균 값에 가로 실선을 추가하고 평균 값 위와 아래에 표준 편차가 1인 두 개의 가로 점선을 추가하는 방법을 보여줍니다.

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

회귀선을 추가하는 방법

R의 플롯에 간단한 선형 회귀선을 추가하는 기본 코드는 다음과 같습니다: abline(model)

다음 코드는 적합 선형 회귀선을 산점도에 추가하는 방법을 보여줍니다.

 #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() 함수를 사용하여 데이터에 간단한 선형 회귀선을 맞추려면 절편과 기울기 값만 있으면 됩니다.

따라서 회귀선을 추가하기 위해 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")

이는 이전과 동일한 줄을 생성한다는 점에 유의하세요.

이 페이지 에서 더 많은 R 튜토리얼을 찾을 수 있습니다.