Example of an R script that does not follow tidyverse style guide (for a tutorial using the {lintr} and {styler} R packages

plot_bad.R

library(ggplot2);data(mtcars)

do_sampling = T

if (do_sampling==T){
if(!is.logical(do_sampling)) stop()
my_cars<- mtcars[,sample(ncol(mtcars), repl = F)]
} else 
  {
  my_cars = mtcars
}

plotMtcars <- function(df = mtcars){
  p <- ggplot(df)+ aes(x=gear, y=mpg, color = factor(cyl)) + geom_point() + theme(panel.grid = element_blank()) + labs(x = 'Gears!', y = "Mpg")
  return(p)
}

if (nrow(mtcars)) {
  plotMtcars(my_cars
            )
}

# fit linear model
lm(mpg~factor(cyl)+gear, 
       data = mtcars)|>
  plot(1)