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