R/cyl_plot.R

In nayefahmad/tidyverseInPackagesTest: What the Package Does (One Line, Title Case)

mtcars <- data.frame(
    mpg = c(21, 21, 22.8, 21.4, 18.7, 18.1, 14.3, 24.4, 22.8, 19.2),
    cyl = c(6, 6, 4, 6, 8, 6, 8, 4, 4, 6),
    disp = c(160, 160, 108, 258, 360, 225, 360, 146.7, 140.8, 167.6),
    hp = c(110, 110, 93, 110, 175, 105, 245, 62, 95, 123),
    drat = c(3.9, 3.9, 3.85, 3.08, 3.15, 2.76, 3.21, 3.69, 3.92, 3.92),
    wt = c(2.62, 2.875, 2.32, 3.215, 3.44, 3.46, 3.57, 3.19, 3.15, 3.44),
    qsec = c(16.46, 17.02, 18.61, 19.44, 17.02, 20.22, 15.84, 20, 22.9, 18.3),
    vs = c(0, 0, 1, 1, 0, 1, 0, 1, 1, 1),
    am = c(1, 1, 1, 0, 0, 0, 0, 0, 0, 0),
    gear = c(4, 4, 4, 3, 3, 3, 3, 4, 4, 4),
    carb = c(4, 4, 1, 1, 2, 1, 4, 2, 2, 4)
)



#' Make a specific bar plot (demo)
#'
#' This is just to demo using the tidyverse in package development
#'
#' @return Nothing? Print to screen?
#' @export
#' @importFrom rlang .data
#'
#' @examples
cyl_plot <- function(){
    ggplot2::ggplot(mtcars) +
        ggplot2::geom_bar(ggplot2::aes(.data$cyl)) + # see readme about `.data`
        ggplot2::coord_flip()

}