Explorar la base de datos
#file.choose()
df <- read.csv("/Users/marcelogarza/Downloads/abarrotes_df_limpio.csv")
#install.packages("ggplot2")
library(ggplot2)
ggplot(df, aes(x=Subtotal)) + geom_histogram() + labs(title = "Histograma de Subtotales", subtitle = "Caso Abarrotes", y= "Cantidad")
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
ggplot(df, aes(x=Precio, y=Unidades, colour=NombreDepartamento)) + geom_point() + labs(title= "Gráfica de Puntos", subtitle = "Caso Abarrotes", )