library(readxl)
<-read_excel("avocado.csv..xlsx") Caso_Aguacate_xls
🥑PROMEDIOS:
BD
🥑OBTENIENDO PROMEDIOS DE LA BD.....
🥑
🥑(PRECIO PROMEDIO)
mean(Caso_Aguacate_xls$`AveragePrice (PRECIO PROMEDIO)`)
[1] 1.405978
🥑(NUMERO TOTAL DE AGUACATES VENDIDOS)
mean(Caso_Aguacate_xls$`Total Volume (NUMERO TOTAL DE AGUACATES VENDIDOS)`)
[1] 850644
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS`)
[1] 293008.4
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS`)
[1] 295154.6
🥑(NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS)
mean(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS`)
[1] 22839.74
🥑(BOLSAS TOTALES)
mean(Caso_Aguacate_xls$`Total Bags (BOLSAS TOTALES)`)
[1] 239639.2
🥑(BOLSAS PEQUEÑAS)
mean(Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)`)
[1] 182194.7
🥑(BOLSAS GRANDES)
mean(Caso_Aguacate_xls$`Large Bags (BOLSAS GRANDES)`)
[1] 54338.09
🥑(BOLSAS EXTRAGRANDES)
mean(Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)`)
[1] 3106.427