Diferentes colores de puntos y líneas en base R Leyenda del gráfico

En este artículo, vamos a ver cómo trazar diferentes colores de puntos y líneas en el lenguaje de programación base R.

Creación de un conjunto de datos para la demostración:

A <- matrix( c( c(0,1,2,3,5), c(1,3,4,2,4)), ncol=2 )
B <- matrix( c( c(3,1,2,3,4), c(4,2,1,1,2)), ncol=2 )
C <- matrix( c( c(1,1,2,4,5), c(4,4,0,1,2)), ncol=2 )
data <- data.frame(A,B)
data

 
 Producción:

Veamos en el código anterior donde ‘A’, ‘B’, ‘C’ son los nombres de una array con entrada vectorial dentro de c() que consta de valores. También contiene el número de filas, es decir, y ‘ncol’ como dos.

Trazado de línea y punto en gráfico con diferente color

Después de crear la array, ahora trazaremos las líneas y los puntos.

Sintaxis: plot(x, y, tipo = “l”, lty = 1) 

              líneas (x, y, tipo = «l», lty = 1)

Parámetros:

• x, y: vectores de coordenadas de los puntos a unir
• tipo: carácter que indica el tipo de trazado. El valor permitido es: «p» para puntos
• lty: tipos de línea. Los tipos de línea se pueden especificar como un número entero (0=en blanco, 1=sólido (predeterminado), 2=guión, 3=punto, 4=punto, 5=guión largo, 6=dos guiones) o como una de las strings de caracteres “en blanco”. ”, “sólido”, “discontinuo”, “punteado”, “punteado”, “guión largo” o “dos guiones”, donde “en blanco” usa ‘líneas invisibles’ (es decir, no las dibuja). 

# Plotting the lines and points
# here type b means we are plotting
# both points and line
plot( 0, type = "b", xlim = c(0,5),
     ylim = c(0,5) )
 
# defining the line column and colour
lines( A, col = "red" )
 
# defining the point column and colour
# here pch means the type of symbol
# we can choose from 1 to 25
points( A, col = "yellow", pch = 16 )
lines( C, col = "green" )
points( C, col = "pink", pch = 15 )
lines( B, col = "blue" )
points( B, col = "violet", pch = 17 )

Producción:

En este gráfico anterior, tenemos líneas y puntos trazados. No hay especificación de qué línea representa qué. Para hacer eso, usaremos la función de leyenda para darles las mismas etiquetas.

Agregar una leyenda

Al agregar una leyenda a un gráfico, existe la forma principal de modificar la posición de la leyenda. Puede establecer el argumento x en «arriba», «arriba a la izquierda», «arriba a la derecha», «abajo», «abajo a la izquierda», «abajo a la derecha», «izquierda», «derecha» o «centro». hay que establecer el argumento y.

En el siguiente código, después de trazar el gráfico, ahora agregamos una leyenda con pch=c(NA, NA), lo que significa que la sección de la leyenda no mostraba el ‘pch’, que significa el símbolo de los puntos, que podemos variar de 1 a 25 según la elección del usuario.

A <- matrix( c( c(0,1,2,3,5), c(1,3,4,2,4)), ncol=2 )
B <- matrix( c( c(3,1,2,3,4), c(4,2,1,1,2)), ncol=2 )
C <- matrix( c( c(1,1,2,4,5), c(4,4,0,1,2)), ncol=2 )
data <- data.frame(A,B)
 
plot( 0, type = "b", xlim = c(0,5),
     ylim = c(0,5) )
lines( A, col = "red" )
points( A, col = "yellow",
       pch = 16 )
lines( C, col = "green" )
points( C, col = "pink", pch = 15 )
lines( B, col = "blue" )
points( B, col = "violet", pch = 17 )
 
legend( x = "topright",
        legend = c("Red line, Yellow points","Blue line,
                  iolet points","Green line,Pink points"),
        col = c("red","blue","green"), lwd=1, lty=c(1,1,1),
        pch=c(NA,NA), cex = 0.5 )

Producción:

Adición de símbolos de puntos a la leyenda mediante superposición

Ahora solo superpondremos la leyenda, los símbolos, como hemos observado anteriormente, las líneas, son visibles la línea de la leyenda en lugar de los símbolos de puntos.

Entonces, lo que haremos, asignaremos los valores a «pch», que podemos variar de 1 a 25 según la elección del usuario, cada número representa una forma de punto, es decir, pch = 1, que es un círculo vacío, pch = 19 (sólido círculo), pch = 21 (círculo relleno), etc.

# data
A <- matrix( c( c(0,1,2,3,5), c(1,3,4,2,4)), ncol=2 )
B <- matrix( c( c(3,1,2,3,4), c(4,2,1,1,2)), ncol=2 )
C <- matrix( c( c(1,1,2,4,5), c(4,4,0,1,2)), ncol=2 )
data <- data.frame(A,B)
 
# plot
plot( 0, type = "b", xlim=c(0,5), ylim=c(0,5) )
lines( A, col = "red" )
points( A, col = "yellow", pch=16 )
lines( C, col = "green" )
points( C, col = "pink", pch=15 )
lines( B, col = "blue" )
points( B, col = "violet", pch=17 )
 
# legend
legend( x="topright",
        legend=c("Red line, Yellow points","Blue line,
                iolet points","Green line,Pink points"),
        col=c("red","blue","green"), lwd=1, lty=c(1,1,1),
        pch=c(NA,NA),cex=0.5 )
 
legend( x="topright",
        legend=c("Red line, Yellow points","Blue line,
                violet points","Green line,Pink points"),
        col=c("yellow","purple","pink"), lwd=1, lty=c(0,0,0),
        pch=c(16,15,17),cex=0.5 )

Producción

.