
Contexto
Explorar la base de datos
Importar la base de datos
#file.choose()
df <- read.csv("/Users/danielagonzalezteixeira/Desktop/7mo Semestre/Primer bloque /Bootcamp Progra/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",
)

LS0tCnRpdGxlOiAiR3JhZmljYXMiCmF1dGhvcjogIkRhbmllbGEgR29uemFsZXogVGVpeGVpcmEiCmRhdGU6ICI5LzEzLzIwMjMiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jIDogVFJVRQogICAgdG9jX2Zsb2F0OiBUUlVFCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFCiAgICB0aGVtZTogImx1bWVuIgogICAgaGlnaGxpZ2h0OiAibW9ub2Nocm9tZSIKICAgIAotLS0KIVtdKC9Vc2Vycy9kYW5pZWxhZ29uemFsZXp0ZWl4ZWlyYS9EZXNrdG9wLzdtbyBTZW1lc3RyZS9QcmltZXIgYmxvcXVlIC9Cb290Y2FtcCBQcm9ncmEvMTcyMTYxOS5wbmcpCgoKIyMjIENvbnRleHRvIApFeHBsb3JhciBsYSBiYXNlIGRlIGRhdG9zIAoKIyMjIEltcG9ydGFyIGxhIGJhc2UgZGUgZGF0b3MgCmBgYHtyfQojZmlsZS5jaG9vc2UoKQpkZiA8LSByZWFkLmNzdigiL1VzZXJzL2RhbmllbGFnb256YWxlenRlaXhlaXJhL0Rlc2t0b3AvN21vIFNlbWVzdHJlL1ByaW1lciBibG9xdWUgL0Jvb3RjYW1wIFByb2dyYS9hYmFycm90ZXNfZGZfbGltcGlvLmNzdiIpCmBgYAoKIyMjIFJlYWxpemFyIGdyw6FmaWNhcyAKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikKbGlicmFyeShnZ3Bsb3QyKQpnZ3Bsb3QoZGYsIGFlcyh4PVN1YnRvdGFsKSkgKyAKICBnZW9tX2hpc3RvZ3JhbSgpICsgCiAgbGFicygKICAgIHRpdGxlID0gIkhpc3RvZ3JhbWEgZGUgU3VidG90YWxlcyIsCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFiYXJyb3RlcyIsCiAgICB5PSAiQ2FudGlkYWQiCiAgKQoKZ2dwbG90KGRmLCBhZXMoeD1QcmVjaW8sIHk9VW5pZGFkZXMsIGNvbG91cj1Ob21icmVEZXBhcnRhbWVudG8pKSArIAogIGdlb21fcG9pbnQoKSArCiAgbGFicygKICAgIHRpdGxlPSAiR3LDoWZpY2EgZGUgUHVudG9zIiwKICAgIHN1YnRpdGxlID0gIkNhc28gQWJhcnJvdGVzIiwKICApCmBgYA==