
Contexto
Explorar distintas formas de gráficar
# file.choose ()
df <- read.csv("/Users/marielgarza/abarrotes_df_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",
)

LS0tCnRpdGxlOiAiR3LDoWZpY2FzIgphdXRob3I6ICJNYXJpZWwgR2FyemEiCmRhdGU6ICIyMDIzLTA5LTEzIgpvdXRwdXQ6IAogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IFRSVUUKICAgIHRvY19mbG9hdDogVFJVRQogICAgY29kZV9kb3dubG9hZDogVFJVRQogICAgdGhlbWU6ICJsdW1lbiIKICAgIGhpZ2hsaWdodDogIm1vbm9jaHJvbWUiCi0tLQohW10oL1VzZXJzL21hcmllbGdhcnphL0Rlc2t0b3AvZ2lmcy1kZS1ncmFmaWNvcy0wLmdpZikKCiMjIyBDb250ZXh0bwpFeHBsb3JhciBkaXN0aW50YXMgZm9ybWFzIGRlIGdyw6FmaWNhcgoKCmBgYHtyfQojIGZpbGUuY2hvb3NlICgpCmRmIDwtIHJlYWQuY3N2KCIvVXNlcnMvbWFyaWVsZ2FyemEvYWJhcnJvdGVzX2RmX2xpbXBpYS5jc3YiKQpgYGAKCiMjIyBSZWFsaXphciBncsOhZmljYXMKYGBge3J9CiMgaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpCmxpYnJhcnkoZ2dwbG90MikKZ2dwbG90KGRmLGFlcyh4PVN1YnRvdGFsKSkgKwogIGdlb21faGlzdG9ncmFtKCkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJIaXN0b2dyYW1hIGRlIFN1YnRvdGFsZXMiLAogICAgc3VidGl0bGUgPSAiQ2FzbyBhYmFycm90ZXMiLAogICAgeSA9ICJDYW50aWRhZCIKICApCgpnZ3Bsb3QoZGYsYWVzKHg9IFByZWNpbywgeT0gVW5pZGFkZXMsIGNvbG91ciA9IE5vbWJyZURlcGFydGFtZW50bykpICsKICBnZW9tX3BvaW50KCkgKyAKICBsYWJzKAogICAgdGl0bGUgPSAiR3LDoWZpY2EgZGUgcHVudG9zIiwKICAgIHN1YnRpdGxlID0gIkNhc28gQWJhcnJvdGVzIiwKICApCgoKYGBgCgo=