Contexto

Explorar distintas formas de gráficar.

Importar la base de datos

# file.choose()
df <- read.csv("C:\\Users\\HP\\Downloads\\abarrotes_df_limpio.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",
    y = "Cantidad"
  )

LS0tDQp0aXRsZTogIkdyw6FmaWNhcyINCmF1dGhvcjogIkZhYmlhbmEgTWVkaW5hY2VsbGkgQTAwODM1ODYiDQpkYXRlOiAiMjAyMy0wOS0xMyINCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQogICAgdGhlbWU6ICJsdW1lbiINCiAgICBoaWdobGlnaHQ6ICJ0YW5nbyIgDQotLS0NCiFbXShDOlxcVXNlcnNcXEhQXFxEZXNrdG9wXFxCb290Y2FtcCBkZSBQcm9ncmFtYWNpw7NuXFxIZWFkZXItNS5naWYpDQoNCiMjIyBDb250ZXh0byANCkV4cGxvcmFyIGRpc3RpbnRhcyBmb3JtYXMgZGUgZ3LDoWZpY2FyLiANCg0KIyMjIEltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MNCmBgYHtyfQ0KIyBmaWxlLmNob29zZSgpDQpkZiA8LSByZWFkLmNzdigiQzpcXFVzZXJzXFxIUFxcRG93bmxvYWRzXFxhYmFycm90ZXNfZGZfbGltcGlvLmNzdiIpDQpgYGANCiMjIyBSZWFsaXphciBHcsOhZmljYXMgDQpgYGB7cn0NCiMgaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQpsaWJyYXJ5KGdncGxvdDIpDQpnZ3Bsb3QoZGYsIGFlcyh4PVN1YnRvdGFsKSkgKyANCiAgZ2VvbV9oaXN0b2dyYW0oKSArIA0KICBsYWJzKA0KICAgIHRpdGxlID0gIkhpc3RvZ3JhbWEgZGUgU3VidG90YWxlcyIsDQogICAgc3VidGl0bGUgPSAiQ2FzbyBBYmFycm90ZXMiLA0KICAgIHkgPSAiQ2FudGlkYWQiDQogICkNCg0KZ2dwbG90KGRmLCBhZXMoeD1QcmVjaW8sIHk9VW5pZGFkZXMsIGNvbG91cj1Ob21icmVEZXBhcnRhbWVudG8pKSArDQogIGdlb21fcG9pbnQoKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiR3LDoWZpY2EgZGUgUHVudG9zIiwNCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFiYXJyb3RlcyIsDQogICAgeSA9ICJDYW50aWRhZCINCiAgKQ0KDQpgYGANCg0KDQoNCg==