### COntexto Explorar distintas formas de graficar.

Importar base de datos

#file.choose()
df<- read.csv("C:\\Users\\Acer\\Desktop\\R studio\\abarrotes_df_limpio.csv")

Realizar graficas

#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 = "Grafica de Puntos",
    subtitle = "Caso Abarrotes",
    y = "Cantidad"
  )

LS0tDQp0aXRsZTogIkdyYWZpY2FzIg0KYXV0aG9yOiAiRGllZ28gR3V0aWVycmV6IEZsb3JlcyBBMDE3MjI0NTIiDQpkYXRlOiAiYDIwMjMtMDktMTNgIg0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQogICAgdGhlbWU6ICJsdW1lbiINCiAgICBoaWdobGlndGg6ICJtb25vY2hyb21lIg0KLS0tDQoNCiFbXShDOlxcVXNlcnNcXEFjZXJcXERlc2t0b3BcXFIgc3R1ZGlvXFxnaWZzLWRlLWdyYWZpY2FzLmdpZikNCiMjIyBDT250ZXh0byANCkV4cGxvcmFyIGRpc3RpbnRhcyBmb3JtYXMgZGUgZ3JhZmljYXIuDQoNCiMjIyBJbXBvcnRhciBiYXNlIGRlIGRhdG9zDQpgYGB7cn0NCiNmaWxlLmNob29zZSgpDQpkZjwtIHJlYWQuY3N2KCJDOlxcVXNlcnNcXEFjZXJcXERlc2t0b3BcXFIgc3R1ZGlvXFxhYmFycm90ZXNfZGZfbGltcGlvLmNzdiIpDQpgYGANCg0KIyMjIFJlYWxpemFyIGdyYWZpY2FzIA0KYGBge3J9DQojaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQpsaWJyYXJ5KGdncGxvdDIpDQpnZ3Bsb3QoZGYsIGFlcyh4PVN1YnRvdGFsKSkgKw0KICBnZW9tX2hpc3RvZ3JhbSgpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJIaXN0b2dyYW1hIGRlIFN1YnRvdGFsZXMiLA0KICAgIHN1YnRpdGxlID0gIkNhc28gQWJhcnJvdGVzIiwgDQogICAgeSA9ICJDYW50aWRhZCINCiAgKQ0KDQpnZ3Bsb3QoZGYsIGFlcyh4PVByZWNpbywgeT1VbmlkYWRlcywgY29sb3VyPU5vbWJyZURlcGFydGFtZW50bykpICsNCiAgZ2VvbV9wb2ludCgpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJHcmFmaWNhIGRlIFB1bnRvcyIsDQogICAgc3VidGl0bGUgPSAiQ2FzbyBBYmFycm90ZXMiLA0KICAgIHkgPSAiQ2FudGlkYWQiDQogICkNCmBgYA0KDQo=