
Contexto
Explorar distintas formas de gráficar.
Importar la base de datos
# file.choose()
df <- read.csv("C:\\Users\\raulc\\OneDrive\\Escritorio\\abarrotes_bd_limpia.csv")
Realizar gráficas
# 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",
)

LS0tDQp0aXRsZTogIkdyw6FmaWNhcyINCmF1dGhvcjogIlJhdWwgQ2FudHUgQTAxMDg3NjgzIg0KZGF0ZTogIjIwMjMtMDktMTMiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0aGVtZTogImx1bWVuIg0KICAgIGhpZ2hsaWdodDogIm1vbm9jaHJvbWUiDQotLS0NCg0KIVtdKEM6XFxVc2Vyc1xccmF1bGNcXE9uZURyaXZlXFxFc2NyaXRvcmlvXFxncmFwaC5naWYpDQoNCiMjIyBDb250ZXh0byAgDQpFeHBsb3JhciBkaXN0aW50YXMgZm9ybWFzIGRlIGdyw6FmaWNhci4NCg0KIyMjIEltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MNCmBgYHtyfQ0KIyBmaWxlLmNob29zZSgpDQpkZiA8LSByZWFkLmNzdigiQzpcXFVzZXJzXFxyYXVsY1xcT25lRHJpdmVcXEVzY3JpdG9yaW9cXGFiYXJyb3Rlc19iZF9saW1waWEuY3N2IikNCmBgYA0KDQojIyMgUmVhbGl6YXIgZ3LDoWZpY2FzDQpgYGB7cn0NCiMgaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQpsaWJyYXJ5KGdncGxvdDIpDQpnZ3Bsb3QoZGYsIGFlcyh4PVN1YnRvdGFsKSkgKw0KICBnZW9tX2hpc3RvZ3JhbSgpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJIaXN0b2dyYW1hIGRlIFN1YnRvdGFsZXMiLA0KICAgIHN1YnRpdGxlID0gIkNhc28gQWJhcnJvdGVzIiwNCiAgICB5ID0gIkNhbnRpZGFkIg0KICApDQoNCmdncGxvdChkZiwgYWVzKHg9UHJlY2lvLCB5PVVuaWRhZGVzLCBjb2xvdXI9Tm9tYnJlRGVwYXJ0YW1lbnRvKSkgKw0KICBnZW9tX3BvaW50KCkgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkdyw6FmaWNhIGRlIFB1bnRvcyIsDQogICAgc3VidGl0bGUgPSAiQ2FzbyBBYmFycm90ZXMiLA0KICApDQoNCmBgYA0KDQoNCg0KDQoNCg==