¿Cómo eliminar el título de la leyenda en R con ggplot2?

A veces, las teclas de leyenda son suficientes para mostrar lo que se supone que deben describir. Por lo tanto, en tales casos, el título de la leyenda puede eliminarse. En este artículo, discutiremos cómo se puede eliminar el título de la leyenda usando ggplot2 en el lenguaje de programación R.

Primero dibujemos una trama regular con un título de 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()

Producción:

Método 1: Usar scale_color_discrete()

La función scale_color_discrete() se ocupa de la estética de la leyenda. Para eliminar el título, su atributo de nombre se establece en nada o se deja en negro, lo que hace que no aparezca en la trama final. 

Sintaxis: scale_color_discrete(nombre)

Ejemplo: elimine el título de la leyenda usando scale_color_discrete().

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()
+scale_color_discrete(name="")

Producción:

Método 2: Usando el tema()

función de tema()

Sintaxis: tema(leyenda.título=elemento_blanco())

Ejemplo: eliminar el título de la leyenda con el tema().

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.title=element_blank())

Producción: