Agregar líneas verticales y horizontales a ggplot2 Trazar en R

En este artículo, veremos cómo agregar líneas verticales y horizontales al gráfico usando ggplot2 en el lenguaje de programación R.

Agregar línea vertical a R Plot usando geom_vline()

Para agregar la línea vertical al gráfico R, geom_vline() dibuja una línea vertical en una posición específica.

Sintaxis: geom_vline(xintercepción)

Parámetro: aquí se usa xintercept para controlar la posición X de la línea.

Retorno: línea vertical en la gráfica R.

Ejemplo: para agregar la línea vertical en el gráfico, simplemente agregamos la función geom_vline() a la función ggplot2() y pasamos xintercept , que básicamente tiene una ubicación en el eje X, donde realmente queremos crear una línea vertical. Aquí establecemos 2011 en la intersección x.

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with vertical line
# at X=2011
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = 2011)

Producción:

Gráfico de dispersión con línea vertical en X=2011

Agregar línea horizontal a la gráfica R usando geom_hline()

Y para agregar líneas horizontales al gráfico R, usaremos la función geom_hline() :

Sintaxis: geom_hline(yintercept)

Parámetro: aquí se usa yintercept para controlar la posición y de la línea.

Retorno: línea horizontal en la gráfica R.

Ejemplo: para agregar la línea horizontal en el gráfico, simplemente agregamos la función geom_hline() a la función ggplot2() y pasamos la intercepción y, que básicamente tiene una ubicación en el eje Y , donde realmente queremos crear una línea vertical. Aquí asignamos 20 a la intersección x.

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with horizontal
# line at Y=20
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_hline(yintercept = 20)

Producción:

Gráfico de dispersión con línea horizontal en Y=20

Agregar líneas verticales y horizontales a la gráfica R

Para agregar ambas líneas, agregamos las funciones geom_vline() y geom_hline() a la función ggplot() y establecemos los valores de xintercept e yintercept. 

Ejemplo: Aquí dibujaremos la línea vertical en X=2012 y la línea vertical en Y=20 .

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with both lines
# at X=2012 and Y=20
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = 2012)+
  geom_hline(yintercept = 20)

Producción:

Gráfico de dispersión con ambas líneas en X=2012 e Y=20

Agregar múltiples líneas verticales y horizontales a la gráfica R usando la función seq()

Usaremos la función seq() para representar xintercept e yintercept y todas las demás configuraciones seguirán siendo las mismas que en el ejemplo 3.

Sintaxis: seq(desde, hasta, por)

Parámetros:

• from : se utiliza para representar la longitud inicial.
• to:  se utiliza para representar la longitud final.
• by: representa incremento del sistema.

Retorno: secuencia bien formada.

Ejemplo: Aquí estamos dibujando líneas verticales de 2011 a 2015 con una diferencia de 0,5 y líneas horizontales de 10 a 50 con una diferencia de 5 .

# load ggplot2 package
library(ggplot2)
 
# Create a dataframe for Plot data
data <- data.frame(year = c(2011, 2012, 2013, 2014, 2015),
                   point = c(10, 20, 30, 40, 50))
 
# Plot the scatter plot with multiple
# vertical and horizontal lines
ggplot(data, aes(year, point)) +   
  ggtitle("Point Chart")+
  geom_point(aes(size = 1.0), col = "green")+
  geom_vline(xintercept = seq(from=2011, to=2015, by = 0.5))+
  geom_hline(yintercept = seq(from=10, to=50, by = 5))

Producción:

Gráfico de dispersión con múltiples líneas verticales y horizontales