
#file.choose()
df <- read.csv("C:\\Users\\lcyep\\OneDrive - Instituto Tecnologico y de Estudios Superiores de Monterrey\\Tec\\Semestre 3\\Semanas Tec\\Programación R\\abarrotes limpia.csv")
Contexto
Explorar distintas formas de gráficar
Realizar gráficas y Importar base de datos
#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"
)

LS0tDQp0aXRsZTogIkdyYWZpY2FzIg0KYXV0aG9yOiAiTHVpcyBDYXJsb3MgWcOpcGl6IEdvbnrDoWxleiBBMDA4MzU3NTIiDQpkYXRlOiAiMjAyMy0wOS0xMyINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFIA0KICAgIHRvY19mbG9hdDogVFJVRSANCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQogICAgdGhlbWU6ICJib290c3RyYXAiIA0KICAgIGhpZ2hsaWdodDogInplbmJ1cm4iDQotLS0NCg0KDQohW10oQzpcXFVzZXJzXFxsY3llcFxcRG93bmxvYWRzXFxLMHB5My5naWYpDQoNCg0KYGBge3J9DQojZmlsZS5jaG9vc2UoKQ0KDQoNCg0KZGYgPC0gcmVhZC5jc3YoIkM6XFxVc2Vyc1xcbGN5ZXBcXE9uZURyaXZlIC0gSW5zdGl0dXRvIFRlY25vbG9naWNvIHkgZGUgRXN0dWRpb3MgU3VwZXJpb3JlcyBkZSBNb250ZXJyZXlcXFRlY1xcU2VtZXN0cmUgM1xcU2VtYW5hcyBUZWNcXFByb2dyYW1hY2nDs24gUlxcYWJhcnJvdGVzIGxpbXBpYS5jc3YiKQ0KYGBgDQoNCg0KIyMjIENvbnRleHRvDQoNCkV4cGxvcmFyIGRpc3RpbnRhcyBmb3JtYXMgZGUgZ3LDoWZpY2FyDQoNCiMjIyBSZWFsaXphciBncsOhZmljYXMgeSBJbXBvcnRhciBiYXNlIGRlIGRhdG9zDQpgYGB7cn0NCiNpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikNCg0KbGlicmFyeShnZ3Bsb3QyKQ0KZ2dwbG90KGRmLCBhZXMoeD1TdWJ0b3RhbCkpICsNCiAgZ2VvbV9oaXN0b2dyYW0oKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiSGlzdG9ncmFtYSBkZSBTdWJ0b3RhbGVzIiwNCiAgICBzdWJ0aXRsZSA9ICJDYXNvIEFiYXJyb3RlcyIsDQogICAgeT0gIkNhbnRpZGFkIg0KICApDQoNCmdncGxvdChkZiwgYWVzKHggPSBQcmVjaW8sIHkgPSBVbmlkYWRlcywgY29sb3VyPSBOb21icmVEZXBhcnRhbWVudG8pKSArDQogIGdlb21fcG9pbnQoKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSJHcmFmaWNhIGRlIFB1bnRvcyIsDQogICAgc3VidGl0bGUgPSAiQ2FzbyBBYmFycm90ZXMiDQogICkNCg0KYGBgDQoNCg==