revisión bd

innobd.txt

rm(list=ls())
setwd("C:/Users/Jbustos/Documents/Jose_Bustos/Innoprint_2018/")
bd<-read.csv2("Innoprint_meses.csv", sep=";", dec=",", h=T)
bd_kiwi<-read.csv2( "Kiwi_meses.csv"  , sep=";", dec=",", h=T)


#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Septiembre"] <- 2011
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Octubre"] <- 2011
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Noviembre"] <- 2011
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Diciembre"] <- 2011
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Enero"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Febrero"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Marzo"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Abril"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Mayo"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Junio"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Julio"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2011-2012" & bd$MES=="Agosto"] <- 2012


#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Septiembre"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Octubre"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Noviembre"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Diciembre"] <- 2012
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Enero"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Febrero"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Marzo"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Abril"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Mayo"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Junio"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Julio"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2012-2013" & bd$MES=="Agosto"] <- 2013


#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Septiembre"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Octubre"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Noviembre"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Diciembre"] <- 2013
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Enero"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Febrero"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Marzo"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Abril"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Mayo"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Junio"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Julio"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2013-2014" & bd$MES=="Agosto"] <- 2014

#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Septiembre"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Octubre"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Noviembre"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Diciembre"] <- 2014
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Enero"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Febrero"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Marzo"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Abril"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Mayo"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Junio"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Julio"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2014-2015" & bd$MES=="Agosto"] <- 2015
                                                                           


#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Septiembre"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Octubre"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Noviembre"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Diciembre"] <- 2015
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Enero"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Febrero"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Marzo"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Abril"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Mayo"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Junio"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Julio"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2015-2016" & bd$MES=="Agosto"] <- 2016     

#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Septiembre"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Octubre"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Noviembre"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Diciembre"] <- 2016
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Enero"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Febrero"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Marzo"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Abril"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Mayo"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Junio"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Julio"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2016-2017" & bd$MES=="Agosto"] <- 2017  


#----arreglo de las temporadas a meses años-----
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Septiembre"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Octubre"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Noviembre"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Diciembre"] <- 2017
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Enero"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Febrero"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Marzo"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Abril"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Mayo"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Junio"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Julio"] <- 2018
bd$año[bd$TEMPORADA=="TEMP.2017-2018" & bd$MES=="Agosto"] <- 2018  



#----arreglo de las temporadas a meses años-----
bd$mes2[ bd$MES=="Septiembre"] <- "09"
bd$mes2[ bd$MES=="Octubre"] <- "10"
bd$mes2[ bd$MES=="Noviembre"] <- "11"
bd$mes2[ bd$MES=="Diciembre"] <- "12"
bd$mes2[ bd$MES=="Enero"] <- "01"
bd$mes2[ bd$MES=="Febrero"] <- "02"
bd$mes2[ bd$MES=="Marzo"] <- "03"
bd$mes2[ bd$MES=="Abril"] <- "04"
bd$mes2[ bd$MES=="Mayo"] <- "05"
bd$mes2[ bd$MES=="Junio"] <- "06"
bd$mes2[ bd$MES=="Julio"] <- "07"
bd$mes2[ bd$MES=="Agosto"] <- "08"  

library(zoo)
bd$mes_año<-as.yearmon(paste(bd$año, bd$mes2, sep="-"))
bd$mes_año<-paste(bd$año, bd$mes2, sep="-")




require(reshape2)
bd2<-bd[,c("mes_año", "ESPECIE" , "TONELADAS")]

df_melt <- melt(bd2, id = c( "mes_año", "ESPECIE" ))
write.table(df_melt,"especie.csv", sep=";", na="", row.names = F, dec=",")

resumen<-dcast(df_melt, variable ~  mes_año + ESPECIE  , sum,na.rm = TRUE)
names(resumen)
tabla<-data.frame(names(resumen),t(resumen))

table(bd$MES, bd$año)
table(bd$TEMPORADA, bd$MES)