
Realizar gráficas
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",)

LS0tCnRpdGxlOiAiRGlzZcOxbyBkZSBncsOhZmljb3MiCmF1dGhvcjogIlBhdWxldHRlIE10ei4gQTAxNzQ3NTM1IgpkYXRlOiAiMjAyMy0wOS0xMyIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICB0b2M6IFRSVUUKICAgdG9jX2Zsb2F0OiBUUlVFCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgdGhlbWU6ICJjZXJ1bGVhbiIKICAgaGlnaGxpZ2h0OiAidGFuZ28iIAotLS0KIVtdKC9Vc2Vycy9wYXVsZXR0ZW0uYS4vRGVza3RvcC9Cb290Y2FtcC9naWZzLWRlLWdyYWZpY29zLTAuZ2lmKQoKIyBDb250ZXh0byAKIyMgRXhwbG9yYXIgZGlzdGludGFzIGZvcm1hcyBkZSBncmFmaWNhciAKCmBgYHtyfQpkZiA8LSByZWFkLmNzdigiL1VzZXJzL3BhdWxldHRlbS5hLi9EZXNrdG9wL0Jvb3RjYW1wL2FiYXJyb3Rlc19iZF9saW1waWEuY3N2IikKYGBgCgpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpgYGAKIyBSZWFsaXphciBncsOhZmljYXMKYGBge3J9CmdncGxvdChkZiwgYWVzKHggPSBTdWJ0b3RhbCkpICsKICBnZW9tX2hpc3RvZ3JhbSgpICsKICBsYWJzKHRpdGxlID0gIkhpc3RvZ3JhbWEgZGUgc3VidG90YWxlcyIsIHN1YnRpdGxlID0gIkNhc28gYWJhcnJvdGVzIiwgeSA9ICJDYW50aWRhZCIpCmBgYAoKYGBge3J9CmdncGxvdChkZiwgYWVzKHggPSBQcmVjaW8sIHkgPSBVbmlkYWRlcywgY29sb3VyID0gTm9tYnJlRGVwYXJ0YW1lbnRvKSkgKwogIGdlb21fcG9pbnQoKSArCiAgbGFicyh0aXRsZSA9ICJHcsOhZmljYSBkZSBwdW50b3MiLCBzdWJ0aXRsZSA9ICJDYXNvIGFiYXJyb3RlcyIsKQpgYGAKCg==