R/final_project.R

In MingshuangLi/package_try: Favorite colors of some people

#' Compare the salary for a group with the average
#'
#' @param df x
#' @param y A number
#' @return a bar graph
#' @examples
#'    product(7,8)
#' @export
#'
exa <- function(df){
  library(tidyverse)
  library(ggplot2)
  library(gapminder)
  ggplot(NBA, aes(x=Season, y=Total_Salary, group = Team)) +
    geom_line(color="gray66", alpha=.25) +
    geom_line(data=spurs, color="firebrick", lwd=1)+
    theme(legend.position="none") +
    theme_classic() +
    ggtitle("San Antonio Spurs vs Other NBA teams")
}