Buscaremos diferentes formas de graficar

df <-  read.csv("/Users/pedrovillanueva/Downloads/abarrotes_df_limpio.csv")
library(ggplot2)
ggplot(df, aes(x=Subtotal)) +
  geom_histogram() +
  labs(
    title = "Histograma de Subtotales",
    subtitle = "Caso Abarrotes",
    y = "Qty"
  )
## `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 de Unidades y Precio",
    subtitle = "Caso Abarrotes"
  )