Color de línea de control y tipo en ggplot2 Trazar leyenda en R

En este artículo, veremos cómo controlar el color de la línea y escribir la leyenda de la trama ggplot2 en el lenguaje de programación R.

Uso de parámetros predeterminados

En este método, los atributos incorporados se pasan a la función con los valores apropiados para generar el requisito. Por lo tanto, para cambiar el color, se debe pasar el atributo col o color con el nombre de la columna del marco de datos sobre la base de la cual se debe hacer la distinción.

Sintaxis: aes(col= nombre_columna)

De manera similar, para controlar el tipo de línea, el atributo de tipo de línea debe pasarse con el nombre de columna del marco de datos.

Sintaxis: aes(tipo de línea= nombre_columna)

Ejemplo: controlar el color y el tipo de línea usando parámetros predeterminados

library("ggplot2")
  
function1 <- function(x){x**2}
function2 <- function(x){x**3}
function3 <- function(x){x/2}
function4 <- function(x){2*(x**3)+(x**2)-(x/2)}
  
df = data.frame(x = -2:2,
              values = c(function1(-2:2),
                       function2(-2:2),
                       function3(-2:2),
                       function4(-2:2)),
              fun = rep(c("function1","function2",
                        "function3","function4"))
)
  
ggplot(df, aes(x, values, color = fun, 
               linetype = fun)) + geom_line()

Producción:

Cambiar manualmente

Con este método, el color del gráfico de líneas se controla mediante la función scale_color_manual(), que se pasa con un vector de colores para cada línea.

Sintaxis: scale_color_manual(vector)

Del mismo modo, el tipo de línea se puede controlar mediante la función scale_linetype_manual(), que también toma un vector como entrada, pero los valores que se pasan son tipos de línea diferentes para cada línea.

Sintaxis: scale_linetype_manual(vector)

Ejemplo: controlar el color y el tipo de línea manualmente

library("ggplot2")
function1<- function(x){x**2}
function2<-function(x){x**3}
function3<-function(x){x/2}
function4<-function(x){2*(x**3)+(x**2)-(x/2)}
  
df=data.frame(x=-2:2,
              values=c(function1(-2:2),
                       function2(-2:2),
                       function3(-2:2),
                       function4(-2:2)),
              fun=rep(c("function1","function2","function3","function4"))
)
  
ggplot(df,aes(x,values, group=fun, color=fun, linetype=fun))+geom_line(size=1)+
  scale_linetype_manual(values = c("solid","dotted","dashed","twodash"))+
  scale_color_manual(values=c("red","green","blue","black"))

Producción: