Crear Leyenda en ggplot2 Trazar en R

En este artículo, discutiremos cómo crear una leyenda en ggplot usando el lenguaje de programación R. Para dibujar una leyenda dentro de ggplot se usa el parámetro col, básicamente agrega colores a la trama y estos colores se usan para diferenciar entre diferentes tramas. Para representar lo que representa cada color, ggplot produce una leyenda. El atributo col se puede especificar en 2 lugares.

Método 1: especificar col en ggplot()

Simplemente especificando sobre la base de qué colores de atributo se deben diferenciar del atributo col dentro de ggplot() se hará el trabajo.

Sintaxis: ggplot(df, aes(x, y, col=”nombre de la columna a diferenciar en base a”))

Código:

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,col=fun))+geom_line()

Producción:

Método 2: Usar col en geom

Lo mismo se puede hacer dentro de cualquier función geom. En el ejemplo que se muestra a continuación, se aplicó a geom_line() pero se puede hacer lo mismo con cualquier otra función geom según el requisito.

Sintaxis: geom_function(aes(col=”nombre de la columna a diferenciar”))

Código:

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)) + geom_line(aes(col = fun))

Producción: