In AgRoMeteorologiaINTA/agromet: Índices y Estadísticos Climáticos e Hidrológicos

knitr::opts_chunk$set(
  echo = FALSE,
  message = FALSE,
  warning = FALSE,
  fig.path = "figuras/",
  dpi = 300,
  out.extra = "",
  dev = c("pdf", "png")
)
library(agroclimatico)   
library(tidyverse) 
library(kableExtra)

archivo <- system.file("extdata", "NH0358.DAT", package = "agroclimatico")

datos <- leer_nh(archivo)

Abstract

Este es el resumen. Para que aparezca en la primera página tiene que ser una sección que se llame "Abstract". No hace falta que sea la primera sección, puede estar en cualquier parte del documento.

Puede contener múltiples párrafos y cualquier otra salida, incluyendo tablas y figuras.

ggplot(datos, aes(fecha, t_max)) + 
  geom_line()

Secciones

Las secciones se definen con '# ' (importante el espacio) y las sub-secciones y sub-sub-secciones con más numerales.

Figuras

Para agregar figuras, simplemente escribir código que genera gráficos. El epígrafe se define con la opción de chunk fig.cap, la alineación con fig.align. Para hacer múltiples sub-figuras, hacer un chunk que genere varios gráficos y poner las opciones fig.show="hold" y definir los sub-epígrafes con fig.subcap.

# Genero datos aleatorios 
set.seed(934)
datos_aleatorios <- metadatos_nh() %>% 
  mutate(t_max = rnorm(n(), mean = (lat - min(lat)) + 10, sd = 10),
         t_min = rnorm(n(), mean = (lat - min(lat)), sd = 10))

datos_aleatorios %>% 
  mapear(t_max, lon, lat, cordillera = TRUE,
              escala = escala_temp_max,
              variable = "ºC",
              fuente = "Fuente: datos de ejemplo")

datos_aleatorios %>% 
  mapear(t_min, lon, lat, cordillera = TRUE,
              escala = escala_temp_min,
              variable = "ºC", fuente = "Fuente: datos de ejemplo")

Tablas

Para hacer tablas con estilo INTA, usar la función kable_inta(). Para poner varias tablas una al lado de la otra, hay que agergarles kable_styling(latex_options = "scale_down") (del paquete kableExtra) y ponerlas dentro de una minipage usando código de LaTeX así:

\begin{minipage}{.5\textwidth}

datos_aleatorios %>% 
  slice_max(t_max, n = 10) %>% 
  select(estacion, t_max) %>% 
  kable_inta(caption = "Extremos de temperatura máxima",
             col.names = c("Ciudad", "Tempreatura Máxima (ºC)")) %>% 
  kable_styling(latex_options = "scale_down")

\end{minipage} \begin{minipage}{.5\textwidth}

datos_aleatorios %>% 
  slice_min(t_min, n = 10) %>% 
  select(estacion, t_min) %>% 
  kable_inta(col.names = c("Ciudad", "Tempreatura Mínima (ºC)"),
             caption = "Extremos de temperatura mínima") %>% 
  kable_styling(latex_options = "scale_down")