¿Cómo suprimir las líneas de cuadrícula verticales usando ggplot2 en R?

En este artículo, discutiremos varias formas de suprimir líneas de cuadrícula verticales en ggplot utilizando un lenguaje de programación R.

Primero dibujemos un gráfico regular sin hacer ningún cambio, para que la diferencia sea rastreable:

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 scale_x_continuous()

La función scale_x_continuous() se puede usar para manejar la apariencia y el atractivo de las líneas de cuadrícula verticales. El atributo de saltos de esta función se puede establecer en NULL, para eliminarlos del gráfico.

Sintaxis: scale_x_continuous(breaks=NULL)

Ejemplo: suprimir las líneas verticales de la cuadrícula usando scale_x_continuous()

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_x_continuous(breaks=NULL)

Método 2: Usando el paquete ggExtra

Este paquete tiene una función llamada removeGrid() que, como sugiere el nombre, se usa para suprimir la línea de cuadrícula del gráfico.

Sintaxis: removeGrid(x, y)

Donde, el atributo y de esta función debe establecerse en falso para suprimir las líneas de cuadrícula verticales en particular. 

Ejemplo:  suprimir las líneas de cuadrícula verticales con ggExtra

library("ggplot2")
library("ggExtra")
  
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()+
  removeGrid(y=FALSE)

Producción: