Cómo usar la función abline () en R para agregar líneas rectas a los gráficos

La función abline () en R se puede usar para agregar una o más líneas rectas a una gráfica en R. La sintaxis básica es de abline () es la siguiente:

• a, b: valores únicos que especifican la intersección y la pendiente de la línea
• h: el valor de y para la línea horizontal
• v: el valor x de la línea vertical

Para la documentación completa de la función abline (), echa un vistazo a la página de I Documentación .

Cómo agregar líneas horizontales

El código básico para agregar una línea horizontal a una gráfica en R es: abline (h = algún valor)

Supongamos que tenemos el siguiente diagrama de dispersión que muestra los valores para x y y en un conjunto de datos:

#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 y Y valores en el conjunto de datos
 de parcela (datos $ x, $ y datos, PCH = 16)

Para agregar una línea horizontal en el valor y = 20, podemos usar el siguiente código:

Tenga en cuenta que lwd = 2 especifica que queremos que el ancho de línea sea igual a 2 (predeterminado = 1).

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

El siguiente código ilustra cómo agregar una línea continua horizontal en el valor medio de y junto con dos líneas discontinuas horizontales en una desviación estándar por encima y por debajo del valor medio:

Tenga en cuenta que lty = 2 especifica que queremos que la línea sea discontinua.

diagrama de dispersión #create para x y y
plot (datos $ x, datos $ y, pch = 16)

# crear una línea horizontal en el valor medio de y
 abline (h = mean (data $ y), lwd = 2)

#cree líneas horizontales con una desviación estándar por encima y por debajo del valor medio
 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)

Cómo agregar líneas verticales

El código básico para agregar una línea vertical a una gráfica en R es: abline (v = algún valor)

El siguiente código ilustra cómo agregar una línea vertical en el valor medio en un histograma:

#Haga que este ejemplo sea reproducible
 set.seed (0)

# crear un conjunto de datos con 1000 valores aleatorios normalmente distribuidos con media = 10, sd = 2
 datos <- rnorm (1000, media = 10, sd = 2)

#crear histograma de valores de datos
 hist (data, col = 'steelblue')

#dibujar una línea punteada vertical en el valor medio
 abline (v = mean (data), lwd = 3, lty = 2)

Cómo agregar líneas de regresión

El código básico para agregar una línea de regresión lineal simple a una gráfica en R es: abline (reg_model)

donde reg_model es una línea de regresión ajustada creada usando la función lm ().

El siguiente código ilustra cómo agregar una línea de regresión lineal ajustada a un diagrama de dispersión:

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

diagrama de dispersión #create de x y y valores de
 trama (datos $ x, $ y datos, PCH = 16)

#ajustar un modelo de regresión lineal a los datos
 reg_model <- lm (y ~ x, data = data)

#agregue la línea de regresión ajustada a la línea del diagrama de
 dispersión (reg_model, col = "steelblue")

Tenga en cuenta que simplemente necesitamos un valor para la intersección y la pendiente para ajustar una línea de regresión lineal simple a los datos usando la función abline (). Por lo tanto, otra forma (aunque más tediosa) de usar abline () para agregar una línea de regresión es especificar explícitamente los coeficientes de intersección y pendiente del modelo de regresión:

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

diagrama de dispersión #create de x y y valores de
 trama (datos $ x, $ y datos, PCH = 16)

#ajustar un modelo de regresión lineal a los datos
 reg_model <- lm (y ~ x, data = data)

#definir los valores de intersección y pendiente
 a <- coeficientes (reg_model) [1] #intercepción 
b <- coeficientes (reg_model) [2] #slope

#agregue la línea de regresión ajustada al diagrama de dispersión
 abline (a = a, b = b, col = "steelblue")

Observe que esto produce la misma línea que antes.

• https://r-project.org
• https://www.python.org/
• https://www.stata.com/