Eliminar leyenda en ggplot2 en R

En este artículo, discutiremos cómo eliminar una leyenda de un gráfico utilizando un lenguaje de programación R.

Veamos primero el gráfico inicial para que la diferencia sea evidente:

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 1: Usando el tema()

tema()

Sintaxis: tema (leyenda.posición)

Parámetro:

• legend.position: cambia la posición de la leyenda a algún valor especificado.

Llamar a la función de tema con legend.position establecido en none hará el trabajo.

Ejemplo: Eliminar leyenda

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()+
theme(legend.position="none")

Producción:

Método 2: Usar guías()

Otra alternativa es llamar al método guides() con un término apropiado que se haya utilizado para establecer la diferencia de color para los objetos de trazado producidos. Ya sea relleno o color, debe establecerse en ninguno.

Sintaxis: guías(color/relleno=”ninguno”) 

Ejemplo: Eliminar leyenda

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()
+guides(col="none")

Producción: