Dibujar gráfico con dos ejes Y en R

En este artículo, vamos a discutir cómo crear ejes y de ambos lados de un gráfico en el lenguaje de programación R.

A veces, para un análisis rápido de datos, se requiere crear un solo gráfico que tenga dos variables de datos con diferentes escalas. Para hacer eso en lenguaje R usamos los siguientes pasos.

Primero, creamos datos de muestra, de modo que los datos de muestra consten de tres vectores numéricos: x, y1 e y2. Los datos x determinarán la información del eje X, mientras que y1 e y2 se utilizarán para dos ejes Y simultáneamente.

Ahora, crearemos un gráfico de dispersión con dos colores diferentes y valores del eje y en los lados izquierdo y derecho del gráfico. Para hacerlo, primero crearemos un espacio en blanco alrededor de la trama. Esto deja espacio para el segundo eje y. Esto se puede hacer usando el método par(). Ahora, cree la primera gráfica (es decir, los puntos cruzados rojos) alrededor del primer eje Y que tenga en cuenta los datos y1.

Sintaxis:

plot(x, y1, pch, col)

 A continuación, establezca new en TRUE en el método par(). Esto debe llamarse nuevamente después de que se haya creado la primera trama. Esto le dice a la trama que se dibujará una nueva trama sobre la primera.

Sintaxis:

par(nuevo = VERDADERO)

 A continuación, trace el segundo gráfico ahora teniendo en cuenta los datos de y2.

Sintaxis:

plot(x, y2, pch = 15, col = 3, ejes = FALSO, xlab = “”, ylab = “”) 

A continuación, establezca el eje o cualquier atributo adicional si es necesario.

Ejemplo:

# Create sample data
set.seed(2585)                           
  
x <- rnorm(45)
y1 <- x + rnorm(45)
y2 <- x + rnorm(45, 7)
  
# Draw first plot using axis y1
par(mar = c(7, 3, 5, 4) + 0.3)              
plot(x, y1, pch = 13, col = 2)  
  
# set parameter new=True for a new axis
par(new = TRUE)         
  
# Draw second plot using axis y2
plot(x, y2, pch = 15, col = 3, axes = FALSE, xlab = "", ylab = "")
  
axis(side = 4, at = pretty(range(y2)))      
mtext("y2", side = 4, line = 3)

Producción:

Producción

Ejemplo 2:

# Create sample data
                            
x <- c(1,2,3,4,5,6,7,8,9,10)
y1 <-c(2,5,2,8,6,8,3,4,2,4)
y2 <-c(2,5,3,7,5,9,7,9,4,1)
  
# Draw first plot using axis y1
par(mar = c(7, 3, 5, 4) + 0.3)              
plot(x, y1, type="l", col = 2)  
  
# set parameter new=True for a new axis
par(new = TRUE)         
  
# Draw second plot using axis y2
plot(x, y2, type="l", col = 3, axes = FALSE, xlab = "", ylab = "")
  
axis(side = 4, at = pretty(range(y2)))      
mtext("y2", side = 4, line = 3)

Producción: