¿Cómo crear un diagrama de dispersión en R con múltiples variables?

En este artículo, veremos la forma de crear un diagrama de dispersión con múltiples variables en el lenguaje de programación R.

 Usando la función Plot() y Points() en Base R:

En este enfoque para crear un diagrama de dispersión con múltiples variables, el usuario debe llamar a la función plot()

  • Función Plot(): Esta es una función genérica para el trazado de objetos R.

Sintaxis:

trama(x, y, …)

Parámetros:

  • x: las coordenadas x de los puntos en el gráfico.
  • y: las coordenadas y de los puntos en el gráfico

Función Points(): Es una función genérica para dibujar una secuencia de puntos en las coordenadas especificadas

Sintaxis:

puntos(x,y = NULL, tipo = “p”, …)

Parámetros:

  • x, y: vectores de coordenadas de los puntos a trazar.
  • tipo: carácter que indica el tipo de trazado; en realidad cualquiera de los tipos como en plot.default.
  • …: También se pueden proporcionar otros parámetros gráficos como argumentos.

Ejemplo 1:

En este ejemplo, crearemos un diagrama de dispersión de 2 variables diferentes usando la función plot() y point() en el lenguaje de programación R. 

R

# Creating First variable
gfg_x1 = c(9,1,8,7,7,3,2,4,5,6)
gfg_y1 = c(7,4,1,5,9,6,3,3,6,9)
  
# Creating Second variable
gfg_x2 = c(4,1,5,9,7,4,5,2,8,4)
gfg_y2 = c(9,1,5,7,4,1,3,6,5,2)
  
# creating scatterplot of gfg_x1 vs. gfg_y1
plot(gfg_x1,gfg_y1, col='darkgreen', pch=19)
  
# Adding scatterplot of gfg_x2 vs gfg_y2
points(gfg_x2, gfg_y2, col='red', pch=19)
  
legend(1,9,legend=c('Variable 1', 'Variable 2'), 
       pch=c(19, 19), col=c('darkgreen', 'red'))

Producción:

Ejemplo 2:

Aquí, crearemos un diagrama de dispersión de 4 variables diferentes.

R

# Creating First variable
gfg_x1 = c(9,1,8,7,7,3,2,4,5,6)
gfg_y1 = c(7,4,1,5,9,6,3,3,6,9)
  
# Creating Second variable
gfg_x2 = c(4,1,5,9,7,4,5,2,8,4)
gfg_y2 = c(9,1,5,7,4,1,3,6,5,2)
  
# Creating Third variable
gfg_x3 = c(6,8,5,7,4,1,6,3,2,9)
gfg_y3 = c(7,4,6,1,5,6,3,5,4,1)
  
# Creating Forth variable
gfg_x4 = c(1,8,7,5,6,3,2,4,5,6)
gfg_y4 = c(2,5,8,6,5,8,6,9,2,1)
  
  
# creating scatterplot of gfg_x1 vs. gfg_y1
plot(gfg_x1,gfg_y1, col='darkgreen', pch=19)
  
# Adding scatterplot of gfg_x2 vs gfg_y2
points(gfg_x2, gfg_y2, col='red', pch=19)
  
# Adding scatterplot of gfg_x3 vs gfg_y3
points(gfg_x3, gfg_y3, col='blue', pch=19)
  
# Adding scatterplot of gfg_x4 vs gfg_y4
points(gfg_x4, gfg_y4, col='orange', pch=19)
  
legend('topleft',legend=c('Variable 1', 'Variable 2','Variable 3','Variable 4'),
       pch=c(19, 19), col=c('darkgreen', 'red','blue','orange'))

Producción:

Ejemplo 3:

Aquí, crearemos un diagrama de dispersión de 6 variables diferentes.

R

# Creating First variable
gfg_x1 = c(9,1,8,7,7,3,2,4,5,6)
gfg_y1 = c(7,4,1,5,9,6,3,3,6,9)
  
# Creating Second variable
gfg_x2 = c(4,1,5,9,7,4,5,2,8,4)
gfg_y2 = c(9,1,5,7,4,1,3,6,5,2)
  
# Creating Third variable
gfg_x3 = c(6,8,5,7,4,1,6,3,2,9)
gfg_y3 = c(7,4,6,1,5,6,3,5,4,1)
  
# Creating Forth variable
gfg_x4 = c(1,8,7,5,6,3,2,4,5,6)
gfg_y4 = c(2,5,8,6,5,8,6,9,2,1)
  
# Creating Fifth variable
gfg_x5 = c(8,9,5,6,2,4,4,6,4,1)
gfg_y5 = c(3,5,7,4,5,6,4,6,5,7)
  
# Creating Sixth variable
gfg_x6 = c(4,5,6,3,2,2,5,5,9,6)
gfg_y6 = c(7,8,5,6,3,5,9,4,5,7)
  
# creating scatterplot of gfg_x1 vs. gfg_y1
plot(gfg_x1,gfg_y1, col='darkgreen', pch=19)
  
# Adding scatterplot of gfg_x2 vs gfg_y2
points(gfg_x2, gfg_y2, col='red', pch=19)
  
# Adding scatterplot of gfg_x3 vs gfg_y3
points(gfg_x3, gfg_y3, col='blue', pch=19)
  
# Adding scatterplot of gfg_x4 vs gfg_y4
points(gfg_x4, gfg_y4, col='orange', pch=19)
  
# Adding scatterplot of gfg_x5 vs gfg_y5
points(gfg_x5, gfg_y5, col='purple', pch=19)
  
# Adding scatterplot of gfg_x6 vs gfg_y6
points(gfg_x6, gfg_y6, col='black', pch=19)
  
legend('topleft',legend=c('Variable 1', 'Variable 2','Variable 3','Variable 4',
                          'Variable 5','Variable 6'), pch=c(19, 19), 
       col=c('darkgreen', 'red','blue','orange','purple','black'))

Producción:

Publicación traducida automáticamente

Artículo escrito por geetansh044 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *