library(ggplot2)
library(readxl)
df <- read.csv("~/Desktop/abarrotes_df_limpio dia 3.csv")
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",)