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=