Análisis de datos de Avena 24 de nov

Grupo 1

Altura

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         33.5        5.74       32.9       0.171

Datos de altura de los muestreos -> Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15            28

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            26.8         14.3        206.        0.535

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             4            48.5           25.2          634.          0.519

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1            18               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          14.3               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1             1               0

Las plantas de Rumex NO se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1             0.5                 0

Puccinia tiende a no presentar severidad en la mayoria

Insectos plaga

datos_avena %>%
  filter(Grupo == 1) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1            0             1              1

Blissus -> Nula presencia
Collaria -> Presencia frecuente
Stenodema -> Presencia frecuente

Grupo 2

Altura

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         33.6        9.69       93.9       0.288

Datos de altura de los muestreos -> Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15             7

Se debe tener en cuenta el estado vegetativo de macollamiento

Cobertura

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            15.5         13.7        188.        0.885

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             3            78.5           9.44          89.2          0.120

Cobertura total de las especies econtradas -> Uniforme

Lollium

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          29.4               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          14.9               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1           2.1               0

Las plantas de Rumex NO se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1            2.15               0.5

Puccinia tiende a presentar severidad baja en la mayoria de plantas

Insectos plaga

datos_avena %>%
  filter(Grupo == 2) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1           NA            NA              0

Blissus -> No data
Collaria -> No data
Stenodema -> Presencia poco frecuente

Grupo 3

Altura

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         34.3        14.6       214.       0.426

Datos de altura de los muestreos -> Semi Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15            12

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1              20         12.6        160.        0.632

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             4              74           27.3          747.          0.369

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          23.8               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          57.1               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1           4.6               1

Las plantas de Rumex se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1           0.318               0.1

Puccinia tiende a presentar severidad baja en la mayoria de plantas

Insectos plaga

datos_avena %>%
  filter(Grupo == 3) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1            0             0              1

Blissus -> Nula presencia
Collaria -> Nula presencia
Stenodema -> Presencia altamente frecuente

Grupo 4

Altura

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         36.6        18.4       338.       0.502

Datos de altura de los muestreos -> No Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        14            10

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            29.4         23.8        564.        0.807

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             4            49.1           27.7          769.          0.565

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          4.83               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          27.2               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          1.92               1

Las plantas de Rumex se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1           0.158                 0

Puccinia tiende a NO presentar severidad en la mayoria de plantas

Insectos plaga

datos_avena %>%
  filter(Grupo == 4) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1            0             0              0

Blissus -> Nula presencia
Collaria -> Presencia poco frecuente
Stenodema -> Presencia poco frecuente

Grupo 5

Altura

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         29.6        8.05       64.7       0.272

Datos de altura de los muestreos -> Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15             4

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            21.8         9.82        96.4        0.450

Cobertura del cultivo -> Es uniforme

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             4            67.3           23.1          532.          0.343

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          6.09               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          7.27               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          2.45               1

Las plantas de Rumex NO se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1           0.364                 0

Puccinia tiende a NO presentar severidad en la mayoria

Insectos plaga

datos_avena %>%
  filter(Grupo == 5) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1           NA            NA             NA

Blissus -> No data
Collaria -> No data
Stenodema -> No data

Grupo 6

Grupo sin datos reportados

Grupo 7

Altura

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         41.4        12.2       149.       0.295

Datos de altura de los muestreos -> Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15            NA

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            41.2         26.4        698.        0.641

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             6            47.5           27.5          757.          0.579

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1             6               1

Las plantas de Lollium se encuentra frecuentemente en el cultivo

Polugonum

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          24.8               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1         0.125               0

Las plantas de Rumex NO se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1            19.2                 5

Puccinia tiende a presentar severidad media en la mayoria de plantas

Insectos plaga

datos_avena %>%
  filter(Grupo == 7) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1            0             0              1

Blissus -> Nula presencia
Collaria -> Nula presencia
Stenodema -> Presencia frecuente

Grupo 8

Altura

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(Media_Altura = mean(`Altura plantas del cultivo (cm)`),
            desv_altura = sd(`Altura plantas del cultivo (cm)`),
            var_altura = var(`Altura plantas del cultivo (cm)`),
            coef_altura = desv_altura/Media_Altura)

## # A tibble: 1 × 4
##   Media_Altura desv_altura var_altura coef_altura
##          <dbl>       <dbl>      <dbl>       <dbl>
## 1         37.2        7.16       51.3       0.193

Datos de altura de los muestreos -> Homogenea la altura

BBCH y No. Plantas

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(moda_BBCH = mode_function(`Fenologia (BBCH)`),
            moda_Nplantas = mode_function(`No. Plantas`))

## # A tibble: 1 × 2
##   moda_BBCH moda_Nplantas
##       <dbl>         <dbl>
## 1        15            14

Tener en cuenta que las plantas ya se encuentra en segundo estado vegetativo pues ya hay macollas

Cobertura

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(media_cobertura = mean(`Cobertura Cultivo (%)`),
            desv_cultivo = sd(`Cobertura Cultivo (%)`),
            var_cultivo = var(`Cobertura Cultivo (%)`),
            coef_cultivo = desv_cultivo/media_cobertura)

## # A tibble: 1 × 4
##   media_cobertura desv_cultivo var_cultivo coef_cultivo
##             <dbl>        <dbl>       <dbl>        <dbl>
## 1            22.8         14.8        220.        0.651

Cobertura del cultivo -> No es uniforme, varianza alta

Cobertura y riqueza de malezas

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(moda_Especies = mode_function(`# Especies identificadas (riqueza)`),
            media_cobertura = mean(`% Cobertura de las malezas`),
            desv_cobertura = sd(`% Cobertura de las malezas`),
            var_cobertura = var(`% Cobertura de las malezas`),
            coef_cobertura = desv_cobertura/media_cobertura)

## # A tibble: 1 × 5
##   moda_Especies media_cobertura desv_cobertura var_cobertura coef_cobertura
##           <dbl>           <dbl>          <dbl>         <dbl>          <dbl>
## 1             3            31.6           29.7          879.          0.938

Cobertura total de las especies econtradas -> No uniforme

Lollium

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(media_Plantas = mean(`Lollium No Plantas`),
            moda_frecuencia = mode_function(`Lollium Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1           8.2               0

Las plantas de Lollium NO se encuentra frecuentemente en el cultivo

Polygonum

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(media_Plantas = mean(`Polygonum No Plantas`),
            moda_frecuencia = mode_function(`Polygonum Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1          19.7               1

Las plantas de Polygonum se encuentra frecuentemente en el cultivo

Rumex

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(media_Plantas = mean(`Rumex No Plantas`),
            moda_frecuencia = mode_function(`Rumex Frecuencia`))

## # A tibble: 1 × 2
##   media_Plantas moda_frecuencia
##           <dbl>           <dbl>
## 1           1.1               1

Las plantas de Rumex se encuentra frecuentemente en el cultivo

Roya (Puccinia graminis f. sp. avenae)

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(media_severidad = mean(as.numeric(unlist(`Roya Severidad (%)`))),
            mediana_severidad = median(as.numeric(unlist(`Roya Severidad (%)`))))

## # A tibble: 1 × 2
##   media_severidad mediana_severidad
##             <dbl>             <dbl>
## 1            0.85               0.5

Puccinia tiende a presentar severidad baja en la mayoria

Insectos plaga

datos_avena %>%
  filter(Grupo == 8) %>%
  summarise(moda_Blissus = mode_function(Blissus),
            moda_Collaria = mode_function(Collaria),
            moda_Stenodema = mode_function(Stenodema))

## # A tibble: 1 × 3
##   moda_Blissus moda_Collaria moda_Stenodema
##          <dbl>         <dbl>          <dbl>
## 1            0             1              1

Blissus -> Nula presencia
Collaria -> Presencia poco frecuente
Stenodema -> Presencia frecuente

Análisis de datos de Avena 24 de nov

Grupo 2

27/11/2021

Grupo 1

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 2

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 3

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 4

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 5

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 6

Grupo 7

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polugonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga

Grupo 8

Altura

BBCH y No. Plantas

Cobertura

Cobertura y riqueza de malezas

Lollium

Polygonum

Rumex

Roya (Puccinia graminis f. sp. avenae)

Insectos plaga