Establezca líneas con diferente transparencia usando ggplot2 en R

En este artículo, discutiremos cómo se puede hacer diferente la transparencia de las líneas para un gráfico de líneas usando GGPLOT2 en el lenguaje de programación R.

Primero, tracemos un gráfico lineal, 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(size=3)

Producción:

Misma transparencia para todas las líneas.

Primero cambiemos la transparencia de todas las líneas al mismo valor, para este parámetro alfa se utiliza. El valor máximo que toma es 1, lo que lo convierte en una línea continua. Para hacerlo translúcido, proporcione valores menores que 1.

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(size=3, alpha=0.6)

Producción:

Definir la transparencia manualmente

Para cambiar la transparencia a algún otro valor para cada línea, pase el valor para diferenciar la transparencia por el atributo del conjunto de datos y luego pase el vector con valores para cada nivel de transparencia a la función scale_alpha_manual().

scale_alpha_manual() establece los valores para alfa manualmente.

Sintaxis: scale_alpha_manual(valores)

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(size=3, aes(alpha=fun))+
  scale_alpha_manual(values=c(0.3,0.2,0.7,1)) 

Producción: