🥑GRAFICOS DE:

`CODIGOS`

Note

Important

Como primer paso Importaremos la base de datos aguacate , utilizando la libreria readxl seguido creamos una variable donde estara almacenado la base de datos.
Utilizaremos el codigo read_excel y dentro llamaremos a la base de datos tipo .xlsx
Como segundo paso llamaremos la libreria epiDisplay donde se utilizara sentencia ya mencionadas anteriormente if-else y se proseguira a categorizar(agrupar).

library(readxl)
Caso_Aguacate_xls<-read_excel("avocado.csv..xlsx")

library(epiDisplay)

Loading required package: foreign

Loading required package: survival

Loading required package: MASS

Loading required package: nnet

Caso_Aguacate_xls$cat_Aguacate <- ifelse(Caso_Aguacate_xls$`AveragePrice       (PRECIO PROMEDIO)` <= 1 , 'promedio-','promedio+')

Caso_Aguacate_xls$cat_numero_total_vendido <- ifelse(Caso_Aguacate_xls$`Total Volume      (NUMERO TOTAL DE AGUACATES VENDIDOS)` <= 850644 , 'ventas menores','ventas mayores')

Caso_Aguacate_xls$cat_numero_4046_vendido <- ifelse(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS` <= 293008 , 'ventas menores de 4046','ventas mayores de 4046')

Caso_Aguacate_xls$cat_numero_4225_vendido <- ifelse(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS` <= 295154 , 'ventas menores de 4225','ventas mayores de 4225')

Caso_Aguacate_xls$cat_numero_4770_vendido <- ifelse(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS` <= 22839 , 'ventas menores de 4770','ventas mayores de 4770')

Caso_Aguacate_xls$bolsas_totales <- ifelse(Caso_Aguacate_xls$`Total Bags  (BOLSAS TOTALES)` <= 239639 , 'bolsas totales  menores','bolsas totales mayores')

Caso_Aguacate_xls$bolsas_pequeñas <- ifelse(Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)` <= 182194 , 'bolsas pequeñas  menores','bolsas pequeñas mayores')

Caso_Aguacate_xls$bolsas_grandes <- ifelse(Caso_Aguacate_xls$`Large Bags  (BOLSAS GRANDES)` <= 54338 , 'bolsas grandes  menores','bolsas grandes mayores')

Caso_Aguacate_xls$bolsas_extragrandes <- ifelse(Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)` <= 3106 , 'bolsas extragrandes  menores','bolsas extragrandes mayores')

Note

Important

hghghg

 library(dplyr)


Attaching package: 'dplyr'

The following object is masked from 'package:MASS':

    select

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

 library(ggplot2)


Attaching package: 'ggplot2'

The following object is masked from 'package:epiDisplay':

    alpha

 library(boxplotdbl)

__________________________________________________________________________________________________________ __________________________________________________________________________________________________________

`BARRAS`

REALIZAR TABLAS CON dplyr PARA PROMEDIO

tabla1 <- Caso_Aguacate_xls %>%
       group_by(cat_Aguacate)%>%
       summarise(frecuencia=n())
tabla1

# A tibble: 2 × 2
  cat_Aguacate frecuencia
  <chr>             <int>
1 promedio-          2963
2 promedio+         15286

GRAFICAR CON ggplot PARA EL PROMEDIO

     ggplot(data=tabla1, aes(x=cat_Aguacate, y=frecuencia, fill=cat_Aguacate))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_replace()

REALIZAR TABLAS CON dplyr PARA NUMERO TOTAL DE AGUACATES VENDIDOS

tabla2 <- Caso_Aguacate_xls %>%
       group_by(cat_numero_total_vendido)%>%
       summarise(frecuencia=n())
tabla2

# A tibble: 2 × 2
  cat_numero_total_vendido frecuencia
  <chr>                         <int>
1 ventas mayores                 2732
2 ventas menores                15517

GRAFICAR CON ggplot PARA EL NUMERO TOTAL DE AGUACATES VENDIDOS

 ggplot(data=tabla2, aes(x=cat_numero_total_vendido, y=frecuencia, fill=cat_numero_total_vendido))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_replace()

REALIZAR TABLAS CON dplyr PARA NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS

     tabla3 <- Caso_Aguacate_xls %>%
       group_by(cat_numero_4046_vendido)%>%
       summarise(frecuencia=n())
     tabla3

# A tibble: 2 × 2
  cat_numero_4046_vendido frecuencia
  <chr>                        <int>
1 ventas mayores de 4046        2464
2 ventas menores de 4046       15785

GRAFICAR CON ggplot PARA NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS

     ggplot(data=tabla3, aes(x=cat_numero_4046_vendido, y=frecuencia, fill=cat_numero_4046_vendido))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS

tabla4 <- Caso_Aguacate_xls %>%
       group_by(cat_numero_4225_vendido)%>%
       summarise(frecuencia=n())
tabla4

# A tibble: 2 × 2
  cat_numero_4225_vendido frecuencia
  <chr>                        <int>
1 ventas mayores de 4225        2973
2 ventas menores de 4225       15276

GRAFICAR CON ggplot PARA NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS

ggplot(data=tabla4, aes(x=cat_numero_4225_vendido, y=frecuencia, fill=cat_numero_4225_vendido))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS

tabla5 <- Caso_Aguacate_xls %>%
       group_by(cat_numero_4770_vendido)%>%
       summarise(frecuencia=n())
tabla5

# A tibble: 2 × 2
  cat_numero_4770_vendido frecuencia
  <chr>                        <int>
1 ventas mayores de 4770        2185
2 ventas menores de 4770       16064

GRAFICAR CON ggplot PARA NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS

ggplot(data=tabla5, aes(x=cat_numero_4770_vendido, y=frecuencia, fill=cat_numero_4770_vendido))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA Total Bags (BOLSAS TOTALES)

tabla6 <- Caso_Aguacate_xls %>%
       group_by(bolsas_totales)%>%
       summarise(frecuencia=n())
tabla6

# A tibble: 2 × 2
  bolsas_totales          frecuencia
  <chr>                        <int>
1 bolsas totales  menores      15569
2 bolsas totales mayores        2680

GRAFICAR CON ggplot PARA Total Bags (BOLSAS TOTALES)

ggplot(data=tabla6, aes(x=bolsas_totales, y=frecuencia, fill=bolsas_totales))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA Small Bags (BOLSAS PEQUEÑAS)

tabla7 <- Caso_Aguacate_xls %>%
       group_by(bolsas_pequeñas)%>%
       summarise(frecuencia=n())
tabla7

# A tibble: 2 × 2
  bolsas_pequeñas          frecuencia
  <chr>                         <int>
1 bolsas pequeñas  menores      15687
2 bolsas pequeñas mayores        2562

GRAFICAR CON ggplot PARA Small Bags (BOLSAS PEQUEÑAS)

ggplot(data=tabla7, aes(x=bolsas_pequeñas, y=frecuencia, fill=bolsas_pequeñas))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA Large Bags (BOLSAS GRANDES)

tabla8 <- Caso_Aguacate_xls %>%
       group_by(bolsas_grandes)%>%
       summarise(frecuencia=n())
tabla8

# A tibble: 2 × 2
  bolsas_grandes          frecuencia
  <chr>                        <int>
1 bolsas grandes  menores      15519
2 bolsas grandes mayores        2730

GRAFICAR CON ggplot PARA Large Bags (BOLSAS GRANDES)

ggplot(data=tabla8, aes(x=bolsas_grandes, y=frecuencia, fill=bolsas_grandes))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

REALIZAR TABLAS CON dplyr PARA XLarge Bags (BOLSAS EXTRAGRANDES)

tabla9 <- Caso_Aguacate_xls %>%
       group_by(bolsas_extragrandes)%>%
       summarise(frecuencia=n())
tabla9

# A tibble: 2 × 2
  bolsas_extragrandes          frecuencia
  <chr>                             <int>
1 bolsas extragrandes  menores      16236
2 bolsas extragrandes mayores        2013

GRAFICAR CON ggplot PARA XLarge Bags (BOLSAS EXTRAGRANDES)

ggplot(data=tabla9, aes(x=bolsas_extragrandes, y=frecuencia, fill=bolsas_extragrandes))+
       geom_bar(stat = "identity")+
       geom_text(aes(label=frecuencia), vjust=-0.5)+
       theme_dark()

`TORTA`

GRAFICO DE TORTA PARA PROMEDIO

porcentajes <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$cat_Aguacate)))*100),2))
     etiquetas <- c(
       "promedio-",
       "promedio+")
     etiquetas <- paste(etiquetas, porcentajes)
     etiquetas <- paste(etiquetas, "%" , sep =" ")
     pie(porcentajes, etiquetas, main = " PROMEDIO", sub="EVALUACION")

GRAFICO DE TORTA PARA NUMERO TOTAL DE AGUACATES VENDIDOS

     porcentajes1 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$cat_numero_total_vendido)))*100),2))
     etiquetas1 <- c(
       "ventas menores",
       "ventas mayores")
     etiquetas1 <- paste(etiquetas1, porcentajes1)
     etiquetas1 <- paste(etiquetas1, "%" , sep =" ")
     pie(porcentajes1, etiquetas1, main = " PORCENTAJES VENTAS TOTALES", sub="EVALUACION")

GRAFICO DE TORTA PARA NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS

     porcentajes2 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$cat_numero_4046_vendido)))*100),2))
     etiquetas2 <- c(
       "ventas menores de 4046: ",
       "ventas mayores de 4046: ")
     etiquetas2 <- paste(etiquetas2, porcentajes2)
     etiquetas2 <- paste(etiquetas2, "%" , sep =" ")
     pie(porcentajes1, etiquetas2, main = " PORCENTAJES  DE PLU 4046", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes3 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$cat_numero_4225_vendido)))*100),2))
     etiquetas3 <- c(
       "ventas menores de 4225: ",
       "ventas mayores de 4225: ")
     etiquetas3 <- paste(etiquetas3, porcentajes3)
     etiquetas3 <- paste(etiquetas3, "%" , sep =" ")
     pie(porcentajes3, etiquetas3, main = " PORCENTAJES  DE PLU 4225", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes4 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$cat_numero_4770_vendido)))*100),2))
     etiquetas4 <- c(
       "ventas menores de 4770: ",
       "ventas mayores de 4770: ")
     etiquetas4 <- paste(etiquetas4, porcentajes4)
     etiquetas4 <- paste(etiquetas4, "%" , sep =" ")
     pie(porcentajes4, etiquetas4, main = " PORCENTAJES  DE PLU 4770", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes5 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$bolsas_totales)))*100),2))
     etiquetas5 <- c(
       "bolsas totales  menores :",
       "bolsas totales  mayores :")
     etiquetas5 <- paste(etiquetas5, porcentajes5)
     etiquetas5 <- paste(etiquetas5, "%" , sep =" ")
     pie(porcentajes5, etiquetas5, main = " PORCENTAJES DE BOLSAS TOTALES", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes6 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$bolsas_pequeñas)))*100),2))
     etiquetas6 <- c(
       "bolsas pequeñas  menores : ",
       "bolsas pequeñas  mayores : ")
     etiquetas6 <- paste(etiquetas6, porcentajes6)
     etiquetas6 <- paste(etiquetas6, "%" , sep =" ")
     pie(porcentajes6, etiquetas6, main = " PORCENTAJES DE BOLSAS TOTALES PEQUEÑAS", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes7 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$bolsas_grandes)))*100),2))
     etiquetas7 <- c(
       "bolsas grandes menores : ",
       "bolsas grandes mayores : ")
     etiquetas7 <- paste(etiquetas7, porcentajes7)
     etiquetas7 <- paste(etiquetas7, "%" , sep =" ")
     pie(porcentajes7, etiquetas7, main = " PORCENTAJES DE BOLSAS TOTALES GRANDES", sub="EVALUACION")

GRAFICO DE TORTA

     porcentajes8 <- as.numeric(round(((prop.table(table(Caso_Aguacate_xls$bolsas_extragrandes)))*100),2))
     etiquetas8 <- c(
       "bolsas extragrandes  menores : ",
       "bolsas extragrandes  mayores : ")
     etiquetas8 <- paste(etiquetas8, porcentajes8)
     etiquetas8 <- paste(etiquetas8, "%" , sep =" ")
     pie(porcentajes8, etiquetas8, main = " PORCENTAJES DE BOLSAS TOTALES EXTRAGRANDES", sub="EVALUACION")

`DENSIDAD`

GRAFICO DE DENSIDAD PARA PROMEDIO

densidad1 <- density(Caso_Aguacate_xls$`AveragePrice       (PRECIO PROMEDIO)`)
     densidad1


Call:
    density.default(x = Caso_Aguacate_xls$`AveragePrice       (PRECIO PROMEDIO)`)

Data: Caso_Aguacate_xls$`AveragePrice       (PRECIO PROMEDIO)` (18249 obs.);    Bandwidth 'bw' = 0.05093

       x                y           
 Min.   :0.2872   Min.   :0.000005  
 1st Qu.:1.0661   1st Qu.:0.017972  
 Median :1.8450   Median :0.124156  
 Mean   :1.8450   Mean   :0.320656  
 3rd Qu.:2.6239   3rd Qu.:0.639319  
 Max.   :3.4028   Max.   :0.964812

     par(bg = "red")
     plot(densidad1, main ="HISTOGRAMA DE DENSIDAD DEL PROMEDIO", xlab= "PROMEDIO",ylab="Densidad", col = "white")

GRAFICO DE DENSIDAD PARA NUMERO TOTAL DE AGUACATES VENDIDOS

     densidad2 <- density(Caso_Aguacate_xls$`Total Volume      (NUMERO TOTAL DE AGUACATES VENDIDOS)`)
     densidad2


Call:
    density.default(x = Caso_Aguacate_xls$`Total Volume      (NUMERO TOTAL DE AGUACATES VENDIDOS)`)

Data: Caso_Aguacate_xls$`Total Volume      (NUMERO TOTAL DE AGUACATES VENDIDOS)` (18249 obs.);  Bandwidth 'bw' = 3.984e+04

       x                  y            
 Min.   : -119438   Min.   :0.000e+00  
 1st Qu.:15566714   1st Qu.:0.000e+00  
 Median :31252866   Median :5.200e-11  
 Mean   :31252866   Mean   :1.997e-08  
 3rd Qu.:46939018   3rd Qu.:5.860e-10  
 Max.   :62625170   Max.   :2.798e-06

     par(bg = "blue")
     plot(densidad2, main ="HISTOGRAMA DE DENSIDAD TOTAL DE AGUACATES VENDIDOS", xlab= "NUMERO TOTAL DE AGUACATES VENDIDOS",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS

     densidad3 <- density(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS`)
     densidad3


Call:
    density.default(x = Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS`)

Data: Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4046-PEQUEÑO VENDIDOS` (18249 obs.);  Bandwidth 'bw' = 1.04e+04

       x                  y            
 Min.   :  -31193   Min.   :0.000e+00  
 1st Qu.: 5670307   1st Qu.:0.000e+00  
 Median :11371808   Median :6.880e-10  
 Mean   :11371808   Mean   :7.522e-08  
 3rd Qu.:17073309   3rd Qu.:3.283e-09  
 Max.   :22774809   Max.   :1.625e-05

     par(bg = "blue")
     plot(densidad3, main ="HISTOGRAMA DE DENSIDAD TOTAL DE 4046 VENDIDO", xlab= "NUMERO TOTAL DE 4046  VENDIDO",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS

     densidad4 <- density(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS`)
     densidad4


Call:
    density.default(x = Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS`)

Data: Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4225-LARGO VENDIDOS` (18249 obs.);    Bandwidth 'bw' = 1.389e+04

       x                  y            
 Min.   :  -41679   Min.   :0.000e+00  
 1st Qu.: 5096804   1st Qu.:0.000e+00  
 Median :10235286   Median :5.980e-10  
 Mean   :10235286   Mean   :5.796e-08  
 3rd Qu.:15373769   3rd Qu.:2.299e-09  
 Max.   :20512252   Max.   :7.786e-06

     par(bg = "blue")
     plot(densidad4, main ="HISTOGRAMA DE DENSIDAD TOTAL DE 4225 VENDIDO", xlab= "NUMERO TOTAL DE 4225  VENDIDO",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS

     densidad5 <- density(Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS`)
     densidad5


Call:
    density.default(x = Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS`)

Data: Caso_Aguacate_xls$`NUMERO TOTAL DE AGUACATE CON PLU 4770-GRANDE VENDIDOS` (18249 obs.);   Bandwidth 'bw' = 589.2

       x                 y            
 Min.   :  -1768   Min.   :0.000e+00  
 1st Qu.: 635726   1st Qu.:0.000e+00  
 Median :1273220   Median :8.300e-09  
 Mean   :1273220   Mean   :1.266e-06  
 3rd Qu.:1910713   3rd Qu.:5.218e-08  
 Max.   :2548207   Max.   :2.411e-04

     par(bg = "blue")
     plot(densidad5, main ="HISTOGRAMA DE DENSIDAD TOTAL DE 4770 VENDIDO", xlab= "NUMERO TOTAL DE 4770  VENDIDO",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA Total Bags (BOLSAS TOTALES)

     densidad6 <- density(Caso_Aguacate_xls$`Total Bags  (BOLSAS TOTALES)`)
     densidad6


Call:
    density.default(x = Caso_Aguacate_xls$`Total Bags  (BOLSAS TOTALES)`)

Data: Caso_Aguacate_xls$`Total Bags  (BOLSAS TOTALES)` (18249 obs.);    Bandwidth 'bw' = 9976

       x                  y            
 Min.   :  -29927   Min.   :0.000e+00  
 1st Qu.: 4828320   1st Qu.:0.000e+00  
 Median : 9686567   Median :9.080e-10  
 Mean   : 9686567   Mean   :7.842e-08  
 3rd Qu.:14544814   3rd Qu.:3.033e-09  
 Max.   :19403061   Max.   :1.578e-05

     par(bg = "blue")
     plot(densidad6, main ="HISTOGRAMA DE DENSIDAD TOTAL DE BOLSAS", xlab= "NUMERO TOTAL DE BOLSAS",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA Small Bags (BOLSAS PEQUEÑAS)

     densidad7 <- density(Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)`)
     densidad7


Call:
    density.default(x = Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)`)

Data: Caso_Aguacate_xls$`Small Bags (BOLSAS PEQUEÑAS)` (18249 obs.);    Bandwidth 'bw' = 7597

       x                  y            
 Min.   :  -22790   Min.   :0.000e+00  
 1st Qu.: 3334752   1st Qu.:2.000e-12  
 Median : 6692294   Median :1.222e-09  
 Mean   : 6692294   Mean   :1.035e-07  
 3rd Qu.:10049835   3rd Qu.:3.517e-09  
 Max.   :13407377   Max.   :1.840e-05

     par(bg = "blue")
     plot(densidad7, main ="HISTOGRAMA DE DENSIDAD TOTAL DE BOLSAS PEQUEÑAS", xlab= "NUMERO TOTAL DE BOLSAS PEQUEÑAS",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA Large Bags (BOLSAS GRANDES)

     densidad8 <- density(Caso_Aguacate_xls$`Large Bags  (BOLSAS GRANDES)`)
     densidad8


Call:
    density.default(x = Caso_Aguacate_xls$`Large Bags  (BOLSAS GRANDES)`)

Data: Caso_Aguacate_xls$`Large Bags  (BOLSAS GRANDES)` (18249 obs.);    Bandwidth 'bw' = 2067

       x                 y            
 Min.   :  -6201   Min.   :0.000e+00  
 1st Qu.:1426674   1st Qu.:0.000e+00  
 Median :2859548   Median :3.360e-09  
 Mean   :2859548   Mean   :3.780e-07  
 3rd Qu.:4292423   3rd Qu.:1.468e-08  
 Max.   :5725298   Max.   :6.430e-05

     par(bg = "blue")
     plot(densidad8, main ="HISTOGRAMA DE DENSIDAD TOTAL DE BOLSAS GRANDES", xlab= "NUMERO TOTAL DE BOLSAS GRANDES",ylab="Densidad", col = "black")

GRAFICO DE DENSIDAD PARA XLarge Bags (BOLSAS EXTRAGRANDES)

     densidad9 <- density(Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)`)
     densidad9


Call:
    density.default(x = Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)`)

Data: Caso_Aguacate_xls$`XLarge Bags (BOLSAS EXTRAGRANDES)` (18249 obs.);   Bandwidth 'bw' = 12.51

       x                  y            
 Min.   :   -37.5   Min.   :0.000e+00  
 1st Qu.:137904.7   1st Qu.:0.000e+00  
 Median :275846.8   Median :0.000e+00  
 Mean   :275846.8   Mean   :6.022e-05  
 3rd Qu.:413789.0   3rd Qu.:1.467e-06  
 Max.   :551731.2   Max.   :2.217e-02

     par(bg = "blue")
     plot(densidad9, main ="HISTOGRAMA DE DENSIDAD TOTAL DE BOLSAS EXTRAGRANDES", xlab= "NUMERO TOTAL DE BOLSAS EXTRAGRANDES",ylab="Densidad", col = "black")