2) Analisis comparativo

datos_filtrados <- MANDARINAS_2024 %>%
  filter((VARIEDAD == "Clementina" & GRUPO == 1) | (VARIEDAD == "Criolla" & GRUPO == 1) | (VARIEDAD == "Clementina" & GRUPO == 7) | (VARIEDAD == "Criolla" & GRUPO == 7))
## # A tibble: 119 × 8
##        N GRUPO VARIEDAD   N_DE_FRUTO  PESO DIAM_ECUAT NIVEL_DE_DAÑO COLOR
##    <dbl> <dbl> <chr>           <dbl> <dbl>      <dbl>         <dbl> <dbl>
##  1     1     1 Clementina         19   101       64.2             1     4
##  2     2     1 Clementina          9   122       64.2             0     5
##  3     3     1 Clementina         21   127       64.7             3     4
##  4     4     1 Clementina          8   126       64.9             3     1
##  5     5     1 Clementina          4    37       65.9             2     5
##  6     6     1 Clementina         30   139       66.4             2     4
##  7     7     1 Clementina         22   140       67.1             3     4
##  8     8     1 Clementina         23   130       67.5             1     3
##  9     9     1 Clementina         17   138       68.2             2     3
## 10    10     1 Clementina         27   142       68.2             2     4
## # ℹ 109 more rows

2.A) Analisis comparativo por variedad

Variedad Clementina Grupo 1

Grupo_1 <- datos_filtrados %>% 
  filter((GRUPO == 1 & VARIEDAD == "Clementina") | (VARIEDAD == "Criolla" & GRUPO == 1))
ggplot(Grupo_1, aes(x = DIAM_ECUAT, y = PESO, shape = VARIEDAD, colou)) + geom_point() + facet_grid(.~ VARIEDAD)

Ambas variedades (Clementina y Criolla) muestran una relación lineal positiva, es decir, a mayor diámetro ecuatorial, mayor peso. La variedad clementina presenta una mayor consentracion de puntos que rondan los (100-150 gr) de peso y con un diametro de (65-75 mm) esto se lo puede adjudicar a que esta variedad al tener una manipulacion genetica se pretende una homogenizacion del peso en funcion al diametro ecuatorial. A diferencia de la variedad criolla que al ser menos manipulada geneticamente esta presenta una mayor heterogeneidad en lo referido al peso con el diametro ecuatorial, distribuyendose en un rango de peso que va desde (80-170 gr) y un diametro ecuatorial que va desde (55 -75 mm).

variedad criolla Grupo 7

Grupo_7 <- datos_filtrados %>% 
  filter((VARIEDAD == "Clementina" & GRUPO == 7) | (VARIEDAD == "Criolla" & GRUPO == 7))
ggplot(Grupo_7, aes(x = DIAM_ECUAT, y = PESO, shape = VARIEDAD, colour = VARIEDAD)) + geom_point() + facet_grid(.~ VARIEDAD)

Ambas variedades (Clementina y Criolla) muestran una relación lineal positiva, es decir, a mayor diámetro ecuatorial, mayor peso. Clementina: En este caso se vuelve a repetir el patron que en esta variedad los valores de peso se encuentran concentrados en el rango de los (130-180 gr) y su diamentro va desde los (65-80 mm); cabe destacar que en este caso se presenta un salto en el peso cuando se supera los 70 mm de diametro. Criolla: Esta variedad vueve a mostrar una mayor hereogeneidad en la distribucion de sus frutas, entendiendose esto como una mayor variabilidad en el tamaño y peso de la fruta.

2.B Relacion entre peso y diametro por grupo

summary(datos_filtrados)
##        N             GRUPO         VARIEDAD           N_DE_FRUTO   
##  Min.   :  1.0   Min.   :1.000   Length:119         Min.   : 1.00  
##  1st Qu.:105.5   1st Qu.:1.000   Class :character   1st Qu.: 8.00  
##  Median :210.0   Median :1.000   Mode  :character   Median :16.00  
##  Mean   :210.0   Mean   :3.975                      Mean   :15.53  
##  3rd Qu.:314.5   3rd Qu.:7.000                      3rd Qu.:23.00  
##  Max.   :419.0   Max.   :7.000                      Max.   :30.00  
##       PESO         DIAM_ECUAT    NIVEL_DE_DAÑO       COLOR      
##  Min.   : 37.0   Min.   :46.60   Min.   :0.000   Min.   :1.000  
##  1st Qu.:125.5   1st Qu.:65.70   1st Qu.:1.000   1st Qu.:1.000  
##  Median :142.0   Median :69.00   Median :1.000   Median :2.000  
##  Mean   :142.0   Mean   :68.78   Mean   :1.353   Mean   :2.059  
##  3rd Qu.:158.5   3rd Qu.:73.15   3rd Qu.:2.000   3rd Qu.:3.000  
##  Max.   :231.0   Max.   :89.00   Max.   :3.000   Max.   :5.000
ggplot(datos_filtrados, aes(PESO, DIAM_ECUAT, colour = VARIEDAD)) + geom_boxplot() + facet_grid(.~ GRUPO)

Grupo 1:

Clementina:

Peso promedio: ~150 g, con una dispersión moderada (RIQ: 130-180 g). Diámetro ecuatorial promedio: ~70 mm, rango ajustado (RIQ: 65-75 mm).

Criolla:

Peso promedio: ~100 g, con menor dispersión (RIQ: 90-110 gr), manteniendo su uniformidad característica. Diámetro ecuatorial promedio: ~65 mm, rango compacto (RIQ: 60-70 mm).

Conclusión: Clementina sigue siendo más grande en promedio. Esto refuerza la percepción de Criolla como una variedad más variable y de Clementina como más uniforme.

Grupo 7:

Clementina: Peso promedio: ~175 gr. Rango intercuartílico (RIQ): ~150-190 gr. Diámetro ecuatorial promedio: ~75 mm. RIQ: ~70-80 mm.

Criolla:

Peso promedio: ~120 gr. RIQ: ~100-130 gr. Diámetro ecuatorial promedio: ~70 mm. RIQ: ~65-75 mm.

Conclusion:

Ambas variedades mejoran su desarrollo, pero Clementina destaca por su mayor tamaño promedio.

2.C) Relacion entre peso y diametro por variedad

ggplot(datos_filtrados, aes(x = DIAM_ECUAT, y = PESO, shape = VARIEDAD, color = VARIEDAD)) +
  geom_boxplot() +
  facet_grid(. ~ VARIEDAD) +
  scale_y_continuous(limits = c(44, 234), name = "Peso") +
  scale_x_continuous(limits = c(35, 240), name = "Diámetro Ecuatorial") +  # Establece el rango para el eje X
  scale_color_brewer(palette = "Set1") +  # Utiliza la paleta de colores "Set1" de RColorBrewer
  theme_light()

Conclusion general:

Existen diferencias significativas entre las variedades de Clementina y Criolla en cuanto a su peso y diámetro ecuatorial. La variedad Clementina presenta un peso promedio mayor y una mayor variabilidad en ambos parámetros (peso y diámetro) en comparación con la variedad Criolla. Comprender estas diferencias es fundamental para optimizar la producción, el procesamiento y la comercialización de estas frutas.