R/comercio.r

  #'Función para hacer la gráficas trimestrales
#'de comercio exterior 
#'@param lista Es el listado que contiene los data frame de comercio exterior
#'@param ruta Es el path de salida para los tex con las graficas
#'
graficasComercio <- function(lista, ruta, modalidad = "trimestral"){
  pre <- T
  if( toupper(modalidad)  == "TRIMESTRAL"){
    trimestral()
    pre <-T
  }else if ( toupper(modalidad) == "ANUAL"){
    anual(rgb(0,0,1), rgb(0.6156862745098039,0.7333333333333333,1))
  }else {
    presentacion()
    pre <- T
  }
  
  g1<- graficaLinea(lista$'1_01',escala = 'milesmillones')
  exportarLatex(paste(ruta,"1_01.tex", sep=""),g1)
  
  g2 <- graficaCol(lista$"1_02", ordenar = F)
  g2 <- etiquetasHorizontales(g2)
  g2 <- rotarEtiX(g2)
  g2 <- g2+ ggplot2::geom_abline(intercept = 0, slope = 0)  
  exportarLatex(paste(ruta,"1_02.tex", sep=""),g2)
  
  g3 <- graficaLinea(lista$"1_03", escala = 'milesmillones')
  exportarLatex(paste(ruta,"1_03.tex", sep=""),g3)
  
  g4<- graficaCol(lista$"1_04", ordenar = F)
  g4 <- etiquetasHorizontales(g4)
  g4 <- rotarEtiX(g4)
  g4 <- g4+ ggplot2::geom_abline(intercept = 0, slope = 0) 
  exportarLatex(paste(ruta,"1_04.tex", sep=""),g4)
  
  
  graficaColCategorias(lista$'1_05', ruta = file.path(ruta, '1_05.tex'), escala = 'milesmillones')
  
  
  g6 <- graficaCol(lista$"1_06", ordenar =  F)# cambiar a col
  g6 <- etiquetasHorizontales(g6)
  g6 <- rotarEtiX(g6)
  g6 <- g6 + ggplot2::geom_abline(intercept = 0, slope = 0) 
  exportarLatex(paste(ruta,"1_06.tex", sep=""),g6)
  
  graficaColCategorias(lista$'1_07', ruta = file.path(ruta, '1_07.tex'), escala = 'millones')
  graficaColCategorias(lista$'1_08', ruta = file.path(ruta, '1_08.tex'), escala = 'millones')
  
  
  g9<- graficaBar(lista$"1_09", escala = 'millones')
  g9 <- etiquetasBarras(g9)
  exportarLatex(paste(ruta,"1_09.tex", sep=""),g9)
  
 
  g10<- graficaCol(lista$"1_10", escala = 'millones')
  g10 <- etiquetasHorizontales(g10)
  g10 <- rotarEtiX(g10)
  exportarLatex(paste(ruta,"1_10.tex", sep=""),g10)
  
  
  g11<- graficaBar(lista$"1_11", escala = 'millones')
  g11 <- etiquetasBarras(g11)
  exportarLatex(paste(ruta,"1_11.tex", sep=""),g11)
  
  g12 <- graficaBar(lista$"1_12", escala = 'millones')
  g12 <- etiquetasBarras(g12)
  exportarLatex(paste(ruta,"1_12.tex", sep=""),g12)
  
  
  g13<- graficaCol(lista$"1_13", escala = 'millones')
  g13 <- etiquetasHorizontales(g13)
  g13 <- rotarEtiX(g13)
  exportarLatex(paste(ruta,"1_13.tex", sep=""),g13)
  
  g14<- graficaBar(lista$"1_14", escala = 'millones')
  g14 <- etiquetasBarras(g14, margenIz = -4)
  exportarLatex(paste(ruta,"1_14.tex", sep=""),g14)
  
  
  g15<- graficaLinea(lista$"2_01", escala = 'milesmillones')
  exportarLatex(paste(ruta,"2_01.tex", sep=""),g15)
  
  
  g16<- graficaCol(lista$"2_02", ordenar = F)
  g16 <- etiquetasHorizontales(g16)
  g16 <- rotarEtiX(g16)
  exportarLatex(paste(ruta,"2_02.tex", sep=""),g16)
  
  
  g17<- graficaLinea(lista$"2_03",escala = 'milesmillones')
  exportarLatex(paste(ruta,"2_03.tex", sep=""),g17)
  
  
  g18<- graficaCol(lista$"2_04", ordenar = F)
  g18 <- etiquetasHorizontales(g18)
  g18 <- rotarEtiX(g18)
  exportarLatex(paste(ruta,"2_04.tex", sep=""),g18)
  
  graficaColCategorias(lista$'2_05', ruta = file.path(ruta, '2_05.tex'), escala = 'milesmillones')
  
  
  graficaColCategorias(lista$'2_07', ruta = file.path(ruta, '2_07.tex'), escala = 'millones')
  graficaColCategorias(lista$'2_08', ruta = file.path(ruta, '2_08.tex'), escala = 'millones')
  
  
  g20<- graficaCol(lista$"2_06", ordenar = F)
  g20 <- etiquetasHorizontales(g20)
  g20 <- rotarEtiX(g20)
  exportarLatex(paste(ruta,"2_06.tex", sep=""),g20)
  
  g23<- graficaBar(lista$"2_09", escala = 'millones')
  g23<- etiquetasBarras(g23, margenIz = 0)
  exportarLatex(paste(ruta,"2_09.tex", sep=""),g23)
  
  g24<- graficaCol(lista$"2_10", escala = 'millones')
  g24<- etiquetasHorizontales(g24)
  g24<- rotarEtiX(g24)
  exportarLatex(paste(ruta,"2_10.tex", sep=""),g24)
  
  g25<- graficaBar(lista$"2_11", escala = 'millones')
  g25<- etiquetasBarras(g25, margenIz = -3)
  exportarLatex(paste(ruta,"2_11.tex", sep=""),g25)
  
  
  g26<- graficaBar(lista$"2_12", escala = 'millones')
  g26<- etiquetasBarras(g26, margenIz=0)
  exportarLatex(paste(ruta,"2_12.tex", sep=""),g26)
  
  g27<- graficaCol(lista$"2_13", escala = 'millones')
  g27<- etiquetasHorizontales(g27)
  g27<- rotarEtiX(g27)
  exportarLatex(paste(ruta,"2_13.tex", sep=""),g27)
  
  
  g28<- graficaBar(lista$"2_14", escala = 'millones')
  g28<- etiquetasBarras(g28, margenIz = 0)
  exportarLatex(paste(ruta,"2_14.tex", sep=""),g28)
  
  g49<- graficaLinea(lista$"3_01", escala = 'milesmillones')
  exportarLatex(paste(ruta,"3_01.tex", sep=""),g49)
  
  
  g30<- graficaCol(lista$"3_02", ordenar = F)
  g30<- etiquetasHorizontales(g30)
  g30 <- rotarEtiX(g30)
  exportarLatex(paste(ruta,"3_02.tex", sep=""),g30)
  
  
  g31<- graficaLinea(lista$"3_03", escala = 'millones')
  exportarLatex(paste(ruta,"3_03.tex", sep=""),g31)
  
  
  g32<- graficaCol(lista$"3_04", ordenar = F)
  g32 <- etiquetasHorizontales(g32)
  g32 <- rotarEtiX(g32)
  exportarLatex(paste(ruta,"3_04.tex", sep=""),g32)
  
  graficaColCategorias(lista$'3_05', ruta = file.path(ruta, '3_05.tex'), escala = 'milesmillones')
  
  g40<- graficaCol(lista$"3_06", ordenar = F)
  g40 <- etiquetasHorizontales(g40)
  g40 <- rotarEtiX(g40)
  exportarLatex(paste(ruta,"3_06.tex", sep=""),g40)
  
  graficaColCategorias(lista$'3_07', ruta = file.path(ruta, '3_07.tex'), escala = 'millones')
  graficaColCategorias(lista$'3_08', ruta = file.path(ruta, '3_08.tex'), escala = 'millones')
  
  
  
  
  g43<- graficaBar(lista$"3_09", escala = 'millones')
  g43<- etiquetasBarras(g43, margenIz = -12)
  exportarLatex(paste(ruta,"3_09.tex", sep=""),g43)
  
  g44<- graficaCol(lista$"3_10", escala = 'millones')
  g44<- etiquetasHorizontales(g44)
  g44<- rotarEtiX(g44)
  exportarLatex(paste(ruta,"3_10.tex", sep=""),g44)
  
  g45<- graficaBar(lista$"3_11", escala = 'millones')
  g45<- etiquetasBarras(g45, margenIz = -3)
  exportarLatex(paste(ruta,"3_11.tex", sep=""),g45)
  
  
  g46<- graficaBar(lista$"3_12", escala = 'millones')
  g46<- etiquetasBarras(g46, margenIz=-3)
  exportarLatex(paste(ruta,"3_12.tex", sep=""),g46)
  
  g47<- graficaCol(lista$"3_13", escala = 'millones')
  g47<- etiquetasHorizontales(g47)
  g47<- rotarEtiX(g47)
  exportarLatex(paste(ruta,"3_13.tex", sep=""),g47)
  
  
  g48<- graficaBar(lista$"3_14", escala = 'millones')
  g48<- etiquetasBarras(g48, margenIz = 0)
  exportarLatex(paste(ruta,"3_14.tex", sep=""),g48)

    
  g50<- graficaLinea(lista$"4_01", escala = 'millones')
  exportarLatex(paste(ruta,"4_01.tex", sep=""),g50)
  
  
  g51<- graficaCol(lista$"4_02", ordenar = F)
  g51 <- etiquetasHorizontales(g51)
  g51 <- rotarEtiX(g51)
  exportarLatex(paste(ruta,"4_02.tex", sep=""),g51)
  
  
  g52<- graficaLinea(lista$"4_03", escala = 'millones')
  exportarLatex(paste(ruta,"4_03.tex", sep=""),g52)
  
  
  g53<- graficaCol(lista$"4_04", ordenar = F)
  g53 <- etiquetasHorizontales(g53)
  g53 <- rotarEtiX(g53)
  exportarLatex(paste(ruta,"4_04.tex", sep=""),g53)
  
  
  graficaColCategorias(lista$'4_05', ruta = file.path(ruta, '4_05.tex'), escala = 'milesmillones')
  
  
  graficaColCategorias(lista$'4_07', ruta = file.path(ruta, '4_07.tex'), escala = 'millones')
  graficaColCategorias(lista$'4_08', ruta = file.path(ruta, '4_08.tex'), escala = 'millones')
  
  
  
  g60<- graficaCol(lista$"4_06", ordenar = F)
  g60 <- etiquetasHorizontales(g60)
  g60 <- rotarEtiX(g60)
  exportarLatex(paste(ruta,"4_06.tex", sep=""),g60)
  
  g63<- graficaBar(lista$"4_09", escala = 'millones')
  g63<- etiquetasBarras(g63, margenIz = -4)
  exportarLatex(paste(ruta,"4_09.tex", sep=""),g63)
  
  g64<- graficaCol(lista$"4_10", escala = 'millones')
  g64<- etiquetasHorizontales(g64)
  g64<- rotarEtiX(g64)
  exportarLatex(paste(ruta,"4_10.tex", sep=""),g64)
  
  g65<- graficaBar(lista$"4_11", escala = 'millones')
  g65<- etiquetasBarras(g65, margenIz = -3)
  exportarLatex(paste(ruta,"4_11.tex", sep=""),g65)
  
  
  g66<- graficaBar(lista$"4_12", escala = 'millones')
  g66<- etiquetasBarras(g66, margenIz=-2)
  exportarLatex(paste(ruta,"4_12.tex", sep=""),g66)
  
  g67<- graficaCol(lista$"4_13", escala = 'millones')
  g67<- etiquetasHorizontales(g67)
  g67<- rotarEtiX(g67)
  exportarLatex(paste(ruta,"4_13.tex", sep=""),g67)
  
  
  g68<- graficaBar(lista$"4_14", escala = 'millones')
  g68<- etiquetasBarras(g68, margenIz = -4)
  exportarLatex(paste(ruta,"4_14.tex", sep=""),g68)
}
hugoallan9/funcionesINE documentation built on May 17, 2019, 9:12 p.m.