
Contexto
Explorar distintas formas de gráficar
Importar la base de datos
#file.choose()
df <- read.csv("/Users/sofiaalcudia/abarrotes limpiezadedatos_abarrotes.csv")
Realizar gráficas
# Install.packages("ggplot2")
library(ggplot2)
ggplot(df,aes(x=Subtotal)) +
geom_histogram() +
labs(
title = "Histograma de subtotales",
subtitles = "Caso de 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",
subtitles = "Caso de abarrotes",
)

#Si quiero formas en vez de colores es shape=NombreDepartamento
```
LS0tCnRpdGxlOiAiR3LDoWZpY2FzIgphdXRob3I6ICJTb2ZpYSBBbGN1ZGlhIEEwMDgzMTEyNSIKZGF0ZTogIjIwMjMtMDktMTMiCm91dHB1dDogCiBodG1sX2RvY3VtZW50OgogICB0b2M6IFRSVUUKICAgdG9jX2Zsb2F0OiBUUlVFCiAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKICAgdGhlbWU6ICJsdW1lbiIKICAgaGlnaGxpZ2h0OiAibW9ub2Nocm9tZSIKLS0tCiFbXSgvVXNlcnMvc29maWFhbGN1ZGlhL0Rvd25sb2Fkcy9JbWFnZW4tYW5pbWFkYS1HcmFmaWNvLTA2LmdpZikKCiMjIyBDb250ZXh0byAKRXhwbG9yYXIgZGlzdGludGFzIGZvcm1hcyBkZSBncsOhZmljYXIKCiMjIyBJbXBvcnRhciBsYSBiYXNlIGRlIGRhdG9zCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpkZiA8LSByZWFkLmNzdigiL1VzZXJzL3NvZmlhYWxjdWRpYS9hYmFycm90ZXMgbGltcGllemFkZWRhdG9zX2FiYXJyb3Rlcy5jc3YiKQpgYGAKCiMjIyBSZWFsaXphciBncsOhZmljYXMKYGBge3J9CiMgSW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpCmxpYnJhcnkoZ2dwbG90MikKZ2dwbG90KGRmLGFlcyh4PVN1YnRvdGFsKSkgKwogIGdlb21faGlzdG9ncmFtKCkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJIaXN0b2dyYW1hIGRlIHN1YnRvdGFsZXMiLAogICAgc3VidGl0bGVzID0gIkNhc28gZGUgYWJhcnJvdGVzIiwKICAgIHkgPSAiQ2FudGlkYWQiCiAgKQoKCmdncGxvdChkZiwgYWVzKHg9UHJlY2lvLCB5PVVuaWRhZGVzLCBjb2xvdXI9Tm9tYnJlRGVwYXJ0YW1lbnRvKSkgKyAKICBnZW9tX3BvaW50KCkgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJHcsOhZmljYSBkZSBwdW50b3MiLAogICAgc3VidGl0bGVzID0gIkNhc28gZGUgYWJhcnJvdGVzIiwKICApCgojU2kgcXVpZXJvIGZvcm1hcyBlbiB2ZXogZGUgY29sb3JlcyBlcyBzaGFwZT1Ob21icmVEZXBhcnRhbWVudG8KCmBgYAoKYGBgCgo=