pre parcial

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(stringr)

load("/cloud/project/data_parcial_1_2021.RData")



#Función para mostrar ventas anuales, trimestrales o mensuales
herramientas_mostrar_ventas<-function(){
  data_parcial_1_2021 %>% 
    select(anio, 
           trimestre,
           mes,
           Sales,
           Segment)->ventas
}

#Función para ver ventas anuales

herramientas_ver_ventasA<-function(){
  data_parcial_1_2021 %>% 
    group_by(anio,
             Sales,
             Segment,
             ) %>% 
    summarise(`# de ventas anuales`=n())
  
  
}


#Función para ver ventas trimestrales

herramientas_ver_ventasT<-function(){
  data_parcial_1_2021 %>% 
    group_by(trimestre,
             Sales,
             Segment,
             ) %>% 
    summarise(`# de ventas trimestrales`=n())
}
  
  #Función para ver ventas mensuales
  
  herramientas_ver_ventasM<-function(){
  data_parcial_1_2021 %>% 
    group_by(mes,
             Sales,
             Segment,
             ) %>% 
    summarise(`# de ventas mensuales`=n())
  }