R/graph.R

In MingshuangLi/package_try: Favorite colors of some people

#' make a graph
#'
#' @param df x
#' @param y A number
#' @return a bar graph
#' @examples
#'    product(7,8)
#' @export
#'
exa <- function(df){
  library(tidyverse)
  library(viridis)

  ggplot(df,aes(x=Name, y=age))+
    geom_col()+
    scale_color_viridis()
}