Chuva mensal para London usando R Markdown

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

##    Month Tokyo NewYork London Berlin
## 1    Jan  49.9    83.6   48.9   42.4
## 2    Feb  71.5    78.8   38.8   33.2
## 3    Mar 106.4    98.5   39.3   34.5
## 4    Apr 129.2    93.4   42.4   39.7
## 5    May 144.0   106.0   47.0   52.6
## 6    Jun 176.0    84.5   48.3   70.5
## 7    Jul 135.6   105.0   62.0   57.4
## 8    Aug 148.5   104.3   59.6   62.0
## 9    Sep 216.4    91.2   52.4   47.6
## 10   Oct 194.1    83.5   65.2   39.1
## 11   Nov  95.6   106.6   59.3   46.8
## 12   Dec  54.4    92.3   53.0   51.1

Gráfico dos dados

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

city <- params$cidade
city

## [1] "London"

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

#dados_met
# dados_met$NewYork 
# dados_met[["NewYork"]]
plot(dados_met[[city]],
  type = "o",
  pch = 19,
  ylab = "Chuva (mm)",
  xlab = "Mês",
  ylim = range(dados_met[, -1]),
  main = city
)

Resumo estatístico para London.

summary(dados_met[[city]])

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   38.80   45.85   50.65   51.35   59.38   65.20