Leer base de datos

Crear Histograma

df <- read.csv("/Users/eduardogarza/Desktop/S7/BootcampProgramaciónST/abarrotes_bd_limpia.csv")
#file.choose()
library(ggplot2)
ggplot(df, aes(x=Subtotal))+
  geom_histogram()+
  labs(
    title = "Histogram de Subtotales",
    subtitle = "Caso abarrotes",
    y = "Cantidad"
  )
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Crear Grafica de Puntos

ggplot(df, aes(x = Precio, y = Unidades, colour = NombreDepartamento)) + 
  geom_point()+
  labs(
    title = "Grafica de puntos",
    subtitle = "Caso Abarrotes",
  )

LS0tCnRpdGxlOiAiR3JhZmljYXMiCmF1dGhvcjogIkVkdWFyZG8gLSBBMDA4MzE0NDciCmRhdGU6ICcyMDIzLTA5LTEzJwpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6IAogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgIHRoZW1lOiAic2ltcGxleCIKICAgIGhpZ2hsaWdodDogInRhbmdvIgotLS0KIVtdKC9Vc2Vycy9lZHVhcmRvZ2FyemEvRGVza3RvcC9TY3JlZW5zaG90IDIwMjMtMDktMTIgYXQgMDkuMTYuNTMucG5nKQoKIyMgTGVlciBiYXNlIGRlIGRhdG9zCiMjIyMgQ3JlYXIgSGlzdG9ncmFtYQpgYGB7cn0KZGYgPC0gcmVhZC5jc3YoIi9Vc2Vycy9lZHVhcmRvZ2FyemEvRGVza3RvcC9TNy9Cb290Y2FtcFByb2dyYW1hY2lvzIFuU1QvYWJhcnJvdGVzX2JkX2xpbXBpYS5jc3YiKQojZmlsZS5jaG9vc2UoKQpsaWJyYXJ5KGdncGxvdDIpCmdncGxvdChkZiwgYWVzKHg9U3VidG90YWwpKSsKICBnZW9tX2hpc3RvZ3JhbSgpKwogIGxhYnMoCiAgICB0aXRsZSA9ICJIaXN0b2dyYW0gZGUgU3VidG90YWxlcyIsCiAgICBzdWJ0aXRsZSA9ICJDYXNvIGFiYXJyb3RlcyIsCiAgICB5ID0gIkNhbnRpZGFkIgogICkKCiAgCmBgYAoKIyMjIyBDcmVhciBHcmFmaWNhIGRlIFB1bnRvcwpgYGB7cn0KZ2dwbG90KGRmLCBhZXMoeCA9IFByZWNpbywgeSA9IFVuaWRhZGVzLCBjb2xvdXIgPSBOb21icmVEZXBhcnRhbWVudG8pKSArIAogIGdlb21fcG9pbnQoKSsKICBsYWJzKAogICAgdGl0bGUgPSAiR3JhZmljYSBkZSBwdW50b3MiLAogICAgc3VidGl0bGUgPSAiQ2FzbyBBYmFycm90ZXMiLAogICkKYGBgCgoKCgoKCgo=