Relatório R do Observatório

Neste capítulo você vai fechar um mini-relatorio analitico em R. O projeto de estudo é o Observatório do Recife, um núcleo fictício de monitoramento urbano e climático.

Seu ponto de partida

O exemplo deste capítulo é 20-relatorio-r, no pacote que acompanha o volume; pratique sobre uma cópia da pasta inicio/. A raiz do exemplo é a referência desta etapa. Abrir ou rodar localmente não publica nada. Servidor, se precisar, só em 127.0.0.1.

Como praticar

Leia, confira o código, mude uma coisa, preveja, salve, rode de novo e confira. Investigue o erro antes de avançar.

Um resultado antes de outro conceito

R trabalha com objetos na memória. Você lê um CSV do Observatório e imprime um resumo.

Faça na sua cópia

A implementação completa está no pacote de exemplos que acompanha este volume.

# Capítulo 20 — relatorio R
leituras <- read.csv("dados/leituras.csv", stringsAsFactors = FALSE)
estacoes <- read.csv("dados/estacoes.csv", stringsAsFactors = FALSE)
junto <- merge(leituras, estacoes, by = "estacao_id")
ativos <- subset(junto, ativo == 1)
resumo <- aggregate(cbind(temp_c, chuva_mm) ~ codigo, data = ativos, FUN = mean)
print(resumo)
cat("Relatorio local concluido.\n")

Mude uma coisa e preveja

Mude um número no vetor ou um filtro e preveja o novo resumo.

Anote o que espera observar antes de salvar e rodar de novo.

Recarregue e confira

O console mostra o objeto atualizado. Se o caminho do CSV falhar, confira se está dentro da pasta do exemplo.

Se não acontecer

Confira se salvou a cópia certa e se o caminho dos dados aponta para dados/ dentro da pasta do exemplo.

Objeto e arquivo

O CSV no disco não muda quando você filtra um data frame — a menos que você grave de propósito.

Faça na sua cópia

A implementação completa está no pacote de exemplos que acompanha este volume.

# Capítulo 20 — relatorio R
leituras <- read.csv("dados/leituras.csv", stringsAsFactors = FALSE)
estacoes <- read.csv("dados/estacoes.csv", stringsAsFactors = FALSE)
junto <- merge(leituras, estacoes, by = "estacao_id")
ativos <- subset(junto, ativo == 1)
resumo <- aggregate(cbind(temp_c, chuva_mm) ~ codigo, data = ativos, FUN = mean)
print(resumo)
cat("Relatorio local concluido.\n")

Mude uma coisa e preveja

Rode nrow ou length depois da transformação.

Anote o que espera observar antes de salvar e rodar de novo.

Recarregue e confira

Você vê a contagem do objeto em memória.

Se não acontecer

Confira se salvou a cópia certa e se o caminho dos dados aponta para dados/ dentro da pasta do exemplo.

Erro comum

Trabalhar no diretório errado faz o read.csv falhar. Use a pasta do exemplo como diretório de trabalho.

Faça na sua cópia

A implementação completa está no pacote de exemplos que acompanha este volume.

setwd("caminho/para/o/exemplo")  # ou abra o projeto na pasta certa

Mude uma coisa e preveja

Force um caminho errado e leia o erro.

Anote o que espera observar antes de salvar e rodar de novo.

Recarregue e confira

Restaure o caminho relativo dados/leituras.csv.

Se não acontecer

Confira se salvou a cópia certa e se o caminho dos dados aponta para dados/ dentro da pasta do exemplo.

Atividades

Responda antes de olhar as respostas comentadas no final.

1. O que é um data frame neste volume?

2. Os CSV do Observatório são reais?

3. Onde praticar?

Antes de avançar

• Você conseguiu fechar um mini-relatorio analitico em R.
• A cópia inicio/ roda sem depender de conta paga.
• Você distingue arquivo local, resultado na tela e publicação pública.

Respostas comentadas

Atividade 1

Tabela em memória com colunas nomeadas.

Atividade 2

Não — conteúdo fictício.

Atividade 3

Na cópia inicio/.