iris_labs <- iris
lbl <- c('Sepal Length', 'Sepal Width', 'Petal Length', 'Petal Width', 'Flower Species')
labelled::var_label(iris_labs) <- split(lbl,names(iris_labs))
p <- ggplot2::ggplot(iris_labs,ggplot2::aes(x=Sepal.Length,y=Sepal.Width))+
ggplot2::geom_line(ggplot2::aes(colour=Species))
p
p + easy_labs()
p + easy_labs(title = "Plot Title", subtitle = 'Plot Subtitle', x = 'x axis label')
p + easy_labs(teach = TRUE)
Run the code above in your browser using DataLab