Obtener los datos

library(stringr)
library(stringi)
library(xtable)
library(RCurl)
library(pander)
library(plyr)
library(grid)
library(tidyr)
library(readxl)

### Obtener los datos de rendimiento 
rend <- read.csv('C:/Users/LVARGAS/Google Drive/datosBEM2016/rendimiento2016.csv')

### Obtener los datos de caracteristicas de bitacora  y eliminar instituciones diferentes
caracteristicasBitNA <- read_excel('C:/Users/LVARGAS/Google Drive/datosBEM2016/completa2016.xlsx', '01_caracteristicas Bitácora')
valoresNA <- is.na(caracteristicasBitNA[,1])
caraBit <- caracteristicasBitNA[!valoresNA,]
caraBitIns <- caraBit[caraBit$`Nombre de la institución` != 'MASAGRO GUANAJUATO' & caraBit$`Nombre de la institución` != 'PIMAF' & caraBit$`Nombre de la institución` != 'MILPA PENINSULA DE YUCATAN', ] 

caraBitInsNam <- caraBitIns[, c(1, 17)]

#names(rend)
rendimiento <- rend[rend[,1] %in% caraBitIns$`ID de la bitácora (clave primaria)`,]

### Crear nueva variable con los datos de tipo de parcela

rendimiento$nuevoTipoPar <- ifelse(rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela testigo', 'Productor sistema optimizado', ifelse((rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela Área de extensión') & (rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela innovación'), 'Innovacion', 'Innovacion'))

#dim(rendimiento[rendimiento$nuevoTipoPar == 'Productor sistema optimizado', ])
#dim(rendimiento[rendimiento$nuevoTipoPar == 'Innovacion', ])
#dim(rendimiento[rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela testigo', ])
#dim(rendimiento[rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela Área de extensión', ])
#dim(rendimiento[rendimiento$Tipo.de.parcela..testigo.o.innovación. == 'Parcela innovación', ])
#unique(rendimiento$nuevoTipoPar)
#names(rendimiento)

### Obtener los datos de rendimiento de SIAP
siap <- read.csv('C:/Users/LVARGAS/Documents/CIMMYT/dataBase/2017/Indicadores/siapRend2016.csv')
#names(siap)

Procesar y obtener el resultado

#vectorTipoPar <- sort(unique(rendimiento$nuevoTipoPar))

##vectorEstado <-'Guanajuato'

#for(tipoPar in vectorTipoPar){
      
        ##estado <- 'Guanajuato'
      
        #datosTipoPar <- rend[rendimiento$nuevoTipoPar == tipoPar,]
      
vectorCultivo <- sort(unique(siap$Cultivo))
        
##vectorCultivo <- 'Maiz'

for(cultivo in vectorCultivo){
          
        #cultivo <- 'Maiz'
  
        datosCultivo <- rendimiento[rendimiento$Nombre.del.cultivo.cosechado == cultivo,]
        
        siapCultivo <- siap[siap$Cultivo == cultivo,]
        ## print(datosEstadoRegion$Region)
  
        vectorProducto <- sort(unique(siapCultivo$Producto))
        
        #vectorProducto <- 'Grano'
  
        for(producto in vectorProducto){
        
                #producto <- 'Grano'
                
                datosProducto <- datosCultivo[datosCultivo$Nombre.del.producto.de.interés.económico.obtenido == producto,] 
                
                siapProducto <- siapCultivo[siapCultivo$Producto == producto,]
                
                vectorUnidad <- sort(unique(siapProducto$Unidad))
                
                vectorUnidad <- 't/ha'
                
                for(unidad in vectorUnidad){
                      
                        #unidad <- 't/ha'
                      
                        datosUnidad <- datosProducto[datosProducto$Unidad.de.medida.de.rendimiento.para.el.producto.de.interés.económico.obtenido == unidad,]
                        
                        siapUnidad <- siapProducto[siapProducto$Unidad == unidad,]
                      
                        vectorAo <- sort(unique(siapUnidad$Año))
                        
                        #vectorAo <- '2016'
                      
                        for(ao in vectorAo){
                            
                                #ao <- '2016'
                            
                                datosAo <- datosUnidad[datosUnidad$Año == ao,]
                                
                                siapAo <- siapUnidad[siapUnidad$Año == ao,]
                            
                                VectorCiclo <- sort(unique(siapUnidad$Ciclo))
                                
                                #VectorCiclo <- 'Primavera-Verano' 
                            
                                for(ciclo in VectorCiclo){
                                  
                                        #ciclo <- 'Primavera-Verano'
                                  
                                        datosCiclo <- datosAo[datosAo$Ciclo.agronómico == ciclo,]
                                  
                                        siapCiclo <- siapAo[siapAo$Ciclo == ciclo,]
                                        
                                        vectorTipo <- sort(unique(siapCiclo$Modalidad))
                                        
                                        #vectorTipo <- 'Riego'
                                  
                                        for(tipo in vectorTipo){
                                        
                                                #tipo <- 'Riego'
                                        
                                                dataTipo <- datosCiclo[datosCiclo$tipoProduccion == tipo,]
                                                names(dataTipo)
                                                
                                                siapTipo <- siapCiclo[siapCiclo$Modalidad == tipo,]
                                                names(siapTipo)
                                                
                                                siapDataTipo <- siapTipo[, c(1, 12, 13, 11, 9, 10, 6)]
                                                
                                                pandoc.header("--------------------------------------------", level = 2)
                                                
                                                etiqueta <- paste(cultivo, producto, ao, ciclo, tipo)
                                                
                                                pandoc.header(etiqueta, level = 3)
                                                
                                                
                                                #----- Practicas optimizadas ------
                                                
                                                dataTipoOp <- dataTipo[dataTipo$nuevoTipoPar == 'Productor sistema optimizado',]
                                                
                                                #### Realizar el resumen de rendimiento y conteo de observaciones
                                                
                                                promediosRenEstadoOp <- with(dataTipoOp, aggregate(Rendimiento..t.ha., by = list(Estado, Año, Ciclo.agronómico, tipoProduccion), mean))
                                                
                                                names(promediosRenEstadoOp) <- c('Estado', 'Año', 'Ciclo', 'Tipo producción', 'Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha)')
                                                
                                                #Conteo observaciones rendimiento
                                                numRenEstadoOp <- with(dataTipoOp, aggregate(Rendimiento..t.ha., by = list(Estado, Año, Ciclo.agronómico, tipoProduccion), length))
                                                
                                                names(numRenEstadoOp) <- c('Estado', 'Año', 'Ciclo', 'Tipo producción', 'Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro')
                                                
                                                tablaRenEstadoOp <- join_all(list(promediosRenEstadoOp, numRenEstadoOp), by = c ('Estado', 'Año', 'Ciclo', 'Tipo producción'), type = 'full')
                                                
                                                tablaRenEstadoOpS <- tablaRenEstadoOp[, c(1, 5, 6)]
                                                                  
                                                ### Unir datos siap con innovacion 
                                                siapOpDataTipo <- merge(siapDataTipo, tablaRenEstadoOpS, by = 'Estado', all.x=TRUE)
                                               
                                                
                                                ####-------------------------------
                                                
                                                
                                                #------------ Innovacion ----------
                                                
                                                dataTipoInn <- dataTipo[dataTipo$nuevoTipoPar == 'Innovacion',]
                                                
                                                #### Realizar el resumen de rendimiento y conteo de observaciones
                                                
                                                #Promedio rendimiento
                                               
                                                promediosRenEstadoInn <- with(dataTipoInn, aggregate(Rendimiento..t.ha., by = list(Estado, Año, Ciclo.agronómico, tipoProduccion), mean))
                                                
                                                names(promediosRenEstadoInn) <- c('Estado', 'Año', 'Ciclo', 'Tipo producción', 'Rendimiento promedio parcela de innovación (t/ha)')
                                                
                                                #Conteo observaciones rendimiento
                                                numRenEstadoInn <- with(dataTipoInn, aggregate(Rendimiento..t.ha., by = list(Estado, Año, Ciclo.agronómico, tipoProduccion), length))
                                                
                                                names(numRenEstadoInn) <- c('Estado', 'Año', 'Ciclo', 'Tipo producción', 'Número de observaciones en parcela de innovación')
                                                
                                                tablaRenEstadoInn <- join_all(list(promediosRenEstadoInn, numRenEstadoInn), by = c ('Estado', 'Año', 'Ciclo', 'Tipo producción'), type = 'full')
                                                
                                                tablaRenEstadoInnS <- tablaRenEstadoInn[, c(1, 5, 6)]
                                                                  
                                                ### Unir datos siap con innovacion 
                                                siapOpInnDataTipo <- merge(siapOpDataTipo, tablaRenEstadoInnS, by = 'Estado', all.x=TRUE)

                                                ####-------------------------------
                                                
                                                
                                                ####-Calcular la tasa de variación-
                                                
                                                siapOpInnDataTipo$variacionOpSiap <- ((siapOpInnDataTipo$`Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha)` - siapOpInnDataTipo$Rendimiento..t.ha.) / siapOpInnDataTipo$Rendimiento..t.ha.) * 100
                                                
                                                 siapOpInnDataTipo$variacionInnSiap <- ((siapOpInnDataTipo$`Rendimiento promedio parcela de innovación (t/ha)` - siapOpInnDataTipo$Rendimiento..t.ha.) / siapOpInnDataTipo$Rendimiento..t.ha.) * 100
                                                
                                                siapOpInnDataTipo$variacionInnOp <- ((siapOpInnDataTipo$`Rendimiento promedio parcela de innovación (t/ha)` - siapOpInnDataTipo$`Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha)`) / siapOpInnDataTipo$`Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha)`) * 100
                                                
                                                names(siapOpInnDataTipo)[7] <- 'Rendimiento reportado por el SIAP (t/ha)'
                                                
                                                names(siapOpInnDataTipo)[12] <- 'Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)'
                                                
                                                names(siapOpInnDataTipo)[13] <- 'Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%)'
                                                
                                                names(siapOpInnDataTipo)[14] <- 'Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)'
                                                
                                                ####-------------------------------

                                                carpetaAlmacenamiento <- './rendimiento_salida'
        
                                                if(!dir.exists(carpetaAlmacenamiento)){dir.create(carpetaAlmacenamiento)}
                                                
                                                nombreArchivo <- paste(carpetaAlmacenamiento, '/','rendimiento_', etiqueta,'.csv')
                                                nombreArchivo <- str_replace_all(nombreArchivo, pattern=" ", repl="")
                                                write.csv(siapOpInnDataTipo, file = nombreArchivo, row.names = FALSE)
                                                
                                                rendTable <- xtable(siapOpInnDataTipo, digits = c(0, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 0, 0, 0))
                                                                  
                                                print(rendTable, type = 'html', include.rownames = FALSE)
                                                
                                        }       
                                        
                                }
                                 
                        }
                            
                }
                      
        }
                
}

——————————————–

Cebada Grano 2016 Primavera-Verano Temporal

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Chihuahua Cebada Grano Temporal 2016 Primavera-Verano 1.00
Durango Cebada Grano Temporal 2016 Primavera-Verano 1.96
Guanajuato Cebada Grano Temporal 2016 Primavera-Verano 1.22
Hidalgo Cebada Grano Temporal 2016 Primavera-Verano 2.68 3.08 13 3.46 198 15 29 12
Jalisco Cebada Grano Temporal 2016 Primavera-Verano 3.50
México Cebada Grano Temporal 2016 Primavera-Verano 1.84 1.93 1 1.96 19 5 7 2
Nuevo León Cebada Grano Temporal 2016 Primavera-Verano 3.00
Oaxaca Cebada Grano Temporal 2016 Primavera-Verano 1.22 2.50 3 105
Puebla Cebada Grano Temporal 2016 Primavera-Verano 2.40
Querétaro Cebada Grano Temporal 2016 Primavera-Verano 2.00
San Luis Potosí Cebada Grano Temporal 2016 Primavera-Verano 0.85
Tamaulipas Cebada Grano Temporal 2016 Primavera-Verano 0.68
Tlaxcala Cebada Grano Temporal 2016 Primavera-Verano 2.36 2.16 2 2.84 10 -8 20 31
Yucatán Cebada Grano Temporal 2016 Primavera-Verano 1.09
Zacatecas Cebada Grano Temporal 2016 Primavera-Verano 1.18

——————————————–

Frijol Grano 2016 Primavera-Verano Temporal

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Aguascalientes Frijol Grano Temporal 2016 Primavera-Verano 0.35
Campeche Frijol Grano Temporal 2016 Primavera-Verano 0.65
Chiapas Frijol Grano Temporal 2016 Primavera-Verano 0.56 0.70 1 0.80 1 25 43 14
Chihuahua Frijol Grano Temporal 2016 Primavera-Verano 0.74
Ciudad de México Frijol Grano Temporal 2016 Primavera-Verano 0.83
Coahuila Frijol Grano Temporal 2016 Primavera-Verano 0.46
Durango Frijol Grano Temporal 2016 Primavera-Verano 0.51 0.50 1 0.91 5 -2 78 82
Guanajuato Frijol Grano Temporal 2016 Primavera-Verano 0.56
Guerrero Frijol Grano Temporal 2016 Primavera-Verano 0.77
Hidalgo Frijol Grano Temporal 2016 Primavera-Verano 0.51 1.70 1 2.00 4 233 291 17
Jalisco Frijol Grano Temporal 2016 Primavera-Verano 0.61
México Frijol Grano Temporal 2016 Primavera-Verano 1.01
Michoacán de Ocampo Frijol Grano Temporal 2016 Primavera-Verano 1.14
Morelos Frijol Grano Temporal 2016 Primavera-Verano 1.02
Nayarit Frijol Grano Temporal 2016 Primavera-Verano 1.26
Nuevo León Frijol Grano Temporal 2016 Primavera-Verano 0.67
Oaxaca Frijol Grano Temporal 2016 Primavera-Verano 0.66 0.50 8 0.37 39 -23 -44 -27
Puebla Frijol Grano Temporal 2016 Primavera-Verano 0.71
Querétaro Frijol Grano Temporal 2016 Primavera-Verano 0.61 0.70 2 1.03 5 14 69 48
Quintana Roo Frijol Grano Temporal 2016 Primavera-Verano 0.88
San Luis Potosí Frijol Grano Temporal 2016 Primavera-Verano 0.40
Sonora Frijol Grano Temporal 2016 Primavera-Verano 0.66
Tamaulipas Frijol Grano Temporal 2016 Primavera-Verano 0.53
Tlaxcala Frijol Grano Temporal 2016 Primavera-Verano 0.99
Yucatán Frijol Grano Temporal 2016 Primavera-Verano 0.60
Yucatán Frijol Grano Temporal 2016 Primavera-Verano 1.10
Zacatecas Frijol Grano Temporal 2016 Primavera-Verano 0.56 0.64 9 0.62 9 14 11 -3

——————————————–

Maiz Grano 2016 Otoño-Invierno Riego

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Baja California Sur Maiz Grano Riego 2016 Otoño-Invierno 6.09
Campeche Maiz Grano Riego 2016 Otoño-Invierno 5.12
Chiapas Maiz Grano Riego 2016 Otoño-Invierno 4.01
Coahuila Maiz Grano Riego 2016 Otoño-Invierno 5.54
Durango Maiz Grano Riego 2016 Otoño-Invierno 3.29
Guanajuato Maiz Grano Riego 2016 Otoño-Invierno 8.55
Guerrero Maiz Grano Riego 2016 Otoño-Invierno 3.65
Hidalgo Maiz Grano Riego 2016 Otoño-Invierno 6.70
Jalisco Maiz Grano Riego 2016 Otoño-Invierno 6.70
México Maiz Grano Riego 2016 Otoño-Invierno 3.40
Michoacán de Ocampo Maiz Grano Riego 2016 Otoño-Invierno 4.02
Morelos Maiz Grano Riego 2016 Otoño-Invierno 3.49
Nayarit Maiz Grano Riego 2016 Otoño-Invierno 6.96
Nuevo León Maiz Grano Riego 2016 Otoño-Invierno 1.73
Oaxaca Maiz Grano Riego 2016 Otoño-Invierno 2.46
Puebla Maiz Grano Riego 2016 Otoño-Invierno 3.11
Querétaro Maiz Grano Riego 2016 Otoño-Invierno 1.99
Quintana Roo Maiz Grano Riego 2016 Otoño-Invierno 4.20
San Luis Potosí Maiz Grano Riego 2016 Otoño-Invierno 3.86
Sinaloa Maiz Grano Riego 2016 Otoño-Invierno 10.97 12.18 16 11.62 77 11 6 -5
Sonora Maiz Grano Riego 2016 Otoño-Invierno 8.00
Tamaulipas Maiz Grano Riego 2016 Otoño-Invierno 6.73
Yucatán Maiz Grano Riego 2016 Otoño-Invierno 5.41
Yucatán Maiz Grano Riego 2016 Otoño-Invierno 3.93
Zacatecas Maiz Grano Riego 2016 Otoño-Invierno 4.32

——————————————–

Maiz Grano 2016 Primavera-Verano Riego

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Aguascalientes Maiz Grano Riego 2016 Primavera-Verano 7.51
Baja California Maiz Grano Riego 2016 Primavera-Verano 8.42
Baja California Sur Maiz Grano Riego 2016 Primavera-Verano 7.12
Campeche Maiz Grano Riego 2016 Primavera-Verano 4.02
Chiapas Maiz Grano Riego 2016 Primavera-Verano 3.14 7.10 2 6.33 3 126 102 -11
Chihuahua Maiz Grano Riego 2016 Primavera-Verano 9.22 16.35 1 14.76 6 77 60 -10
Coahuila Maiz Grano Riego 2016 Primavera-Verano 3.60
Coahuila Maiz Grano Riego 2016 Primavera-Verano 5.53
Durango Maiz Grano Riego 2016 Primavera-Verano 8.02
Guanajuato Maiz Grano Riego 2016 Primavera-Verano 8.91 12.01 1 35
Guerrero Maiz Grano Riego 2016 Primavera-Verano 3.91
Hidalgo Maiz Grano Riego 2016 Primavera-Verano 7.63 9.41 4 10.10 3 23 32 7
Jalisco Maiz Grano Riego 2016 Primavera-Verano 7.65 10.60 1 11.25 2 39 47 6
México Maiz Grano Riego 2016 Primavera-Verano 5.74 7.00 5 8.11 8 22 41 16
Michoacán de Ocampo Maiz Grano Riego 2016 Primavera-Verano 7.10 11.20 9 10.72 31 58 51 -4
Morelos Maiz Grano Riego 2016 Primavera-Verano 3.80
Nayarit Maiz Grano Riego 2016 Primavera-Verano 7.85
Nuevo León Maiz Grano Riego 2016 Primavera-Verano 4.28
Oaxaca Maiz Grano Riego 2016 Primavera-Verano 2.16 4.28 8 4.77 22 98 121 12
Puebla Maiz Grano Riego 2016 Primavera-Verano 5.21 5.33 2 5.47 6 2 5 3
Querétaro Maiz Grano Riego 2016 Primavera-Verano 7.67 7.99 7 10.62 25 4 38 33
Quintana Roo Maiz Grano Riego 2016 Primavera-Verano 4.12
San Luis Potosí Maiz Grano Riego 2016 Primavera-Verano 4.01
Sinaloa Maiz Grano Riego 2016 Primavera-Verano 9.06 13.20 1 46
Sonora Maiz Grano Riego 2016 Primavera-Verano 6.85 5.90 1 -14
Tamaulipas Maiz Grano Riego 2016 Primavera-Verano 2.75
Tlaxcala Maiz Grano Riego 2016 Primavera-Verano 4.47
Yucatán Maiz Grano Riego 2016 Primavera-Verano 3.48
Yucatán Maiz Grano Riego 2016 Primavera-Verano 5.23
Zacatecas Maiz Grano Riego 2016 Primavera-Verano 6.40

——————————————–

Maiz Grano 2016 Primavera-Verano Temporal

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Aguascalientes Maiz Grano Temporal 2016 Primavera-Verano 0.63
Baja California Maiz Grano Temporal 2016 Primavera-Verano 0.00
Campeche Maiz Grano Temporal 2016 Primavera-Verano 2.51 2.99 17 3.95 49 19 57 32
Chiapas Maiz Grano Temporal 2016 Primavera-Verano 1.96 4.50 34 4.17 201 130 113 -7
Chihuahua Maiz Grano Temporal 2016 Primavera-Verano 0.99 1.00 2 6.17 3 1 523 517
Ciudad de México Maiz Grano Temporal 2016 Primavera-Verano 1.39
Coahuila Maiz Grano Temporal 2016 Primavera-Verano 0.73
Coahuila Maiz Grano Temporal 2016 Primavera-Verano 3.63
Durango Maiz Grano Temporal 2016 Primavera-Verano 1.12 1.12 18 1.72 45 -0 53 53
Guanajuato Maiz Grano Temporal 2016 Primavera-Verano 1.66 8.45 2 409
Guerrero Maiz Grano Temporal 2016 Primavera-Verano 2.70 4.14 127 4.66 1248 53 73 13
Hidalgo Maiz Grano Temporal 2016 Primavera-Verano 1.40 4.02 11 3.91 57 187 180 -3
Jalisco Maiz Grano Temporal 2016 Primavera-Verano 6.19 8.49 22 9.47 51 37 53 12
México Maiz Grano Temporal 2016 Primavera-Verano 4.15 6.85 8 7.87 24 65 90 15
Michoacán de Ocampo Maiz Grano Temporal 2016 Primavera-Verano 3.01 6.45 8 6.97 29 114 132 8
Morelos Maiz Grano Temporal 2016 Primavera-Verano 2.86 6.25 20 6.76 389 119 136 8
Nayarit Maiz Grano Temporal 2016 Primavera-Verano 3.91
Nuevo León Maiz Grano Temporal 2016 Primavera-Verano 0.80
Oaxaca Maiz Grano Temporal 2016 Primavera-Verano 1.15 2.16 37 2.15 210 88 87 -1
Puebla Maiz Grano Temporal 2016 Primavera-Verano 1.63 2.76 5 3.47 20 70 113 26
Querétaro Maiz Grano Temporal 2016 Primavera-Verano 1.34 4.15 16 4.90 51 210 266 18
Quintana Roo Maiz Grano Temporal 2016 Primavera-Verano 0.44
San Luis Potosí Maiz Grano Temporal 2016 Primavera-Verano 0.77 0.92 3 0.84 9 19 10 -8
Sinaloa Maiz Grano Temporal 2016 Primavera-Verano 2.10
Sonora Maiz Grano Temporal 2016 Primavera-Verano 0.84
Tabasco Maiz Grano Temporal 2016 Primavera-Verano 1.84 2.40 3 2.58 4 30 40 7
Tamaulipas Maiz Grano Temporal 2016 Primavera-Verano 1.49
Tlaxcala Maiz Grano Temporal 2016 Primavera-Verano 2.87 4.21 8 5.17 24 47 80 23
Yucatán Maiz Grano Temporal 2016 Primavera-Verano 2.08 2.38 3 2.98 13 15 43 25
Yucatán Maiz Grano Temporal 2016 Primavera-Verano 0.56 2.38 3 2.98 13 326 432 25
Zacatecas Maiz Grano Temporal 2016 Primavera-Verano 1.51 1.29 8 1.70 7 -14 13 31

——————————————–

Trigo Grano 2016 Otoño-Invierno Riego

Estado Cultivo Producto Modalidad Año Ciclo Rendimiento reportado por el SIAP (t/ha) Rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (t/ha) Número de observaciones en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro Rendimiento promedio parcela de innovación (t/ha) Número de observaciones en parcela de innovación Tasa de variación rendimiento SIAP vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%) Tasa de variación rendimiento SIAP vs rendimiento promedio parcela de innovación (%) Tasa de variación rendimiento promedio parcela de innovación vs rendimiento en parcela del productor optimizando el sistema gracias a las capacitaciones de MasAgro (%)
Aguascalientes Trigo Grano Riego 2016 Otoño-Invierno 5.81
Baja California Trigo Grano Riego 2016 Otoño-Invierno 5.73 6.78 6 6.78 6 18 18 0
Baja California Sur Trigo Grano Riego 2016 Otoño-Invierno 5.00
Chihuahua Trigo Grano Riego 2016 Otoño-Invierno 5.45
Coahuila Trigo Grano Riego 2016 Otoño-Invierno 3.85
Durango Trigo Grano Riego 2016 Otoño-Invierno 4.31
Guanajuato Trigo Grano Riego 2016 Otoño-Invierno 6.85
Hidalgo Trigo Grano Riego 2016 Otoño-Invierno 4.71
Jalisco Trigo Grano Riego 2016 Otoño-Invierno 5.45
México Trigo Grano Riego 2016 Otoño-Invierno 1.71
Michoacán de Ocampo Trigo Grano Riego 2016 Otoño-Invierno 5.96
Nuevo León Trigo Grano Riego 2016 Otoño-Invierno 3.46
Oaxaca Trigo Grano Riego 2016 Otoño-Invierno 2.25
Puebla Trigo Grano Riego 2016 Otoño-Invierno 2.22
Sinaloa Trigo Grano Riego 2016 Otoño-Invierno 4.83 4.50 2 4.96 5 -7 3 10
Sonora Trigo Grano Riego 2016 Otoño-Invierno 6.49 6.66 20 6.83 40 3 5 3
Tamaulipas Trigo Grano Riego 2016 Otoño-Invierno 2.53
Zacatecas Trigo Grano Riego 2016 Otoño-Invierno 3.11 
#}