Importando dados

Nesta parte mostramos como carregar os dados gerados por um outro script.

source("gera-dados.R")
## dados gerados no script acima
# dados_met
kable(head(dados_met, n = 5))
Month Tokyo NewYork London Berlin
Jan 49.9 83.6 48.9 42.4
Feb 71.5 78.8 38.8 33.2
Mar 106.4 98.5 39.3 34.5
Apr 129.2 93.4 42.4 39.7
May 144.0 106.0 47.0 52.6

Gráfico dos dados

Obtendo a variável cidade a partir do cabeçalho do arquivo Rmd.

city <- params$cidade
city
## [1] "Tokyo"

Gráfico da chuva mensal para a cidade de Tokyo.

#dados_met
# dados_met$NewYork 
# dados_met[["NewYork"]]
desvio <- dados_met[[city]] - mean(dados_met[[city]])

plot(desvio,
  type = "o",          # tipo de linha (linha com ponto)
  pch = 19,            # simbolo circulo preenchido
  ylab = " Desvio de Chuva (mm)", # label eixo y  
  xlab = "Mês",        # label eixo x
  #ylim = range(dados_met[, -1]), # intervalo de variacao do eixo y
  #ylim = c(-100, 100),
  ylim = range(desvio),
  main = city          # titulo
)
# 
abline(h = 0, lty = 3)

Resumo estatístico para Tokyo.

#boxplot(dados_met[[city]])
boxplot(desvio)