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==