--- title: "Exemplo de citações" author: "Elias T. Krainski" date: "May 11, 2018" output: pdf_document bibliography: referencias.bib --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) ``` # Resumo Mostramos como citar figuras, tabelas e referências bibliográficas. ## Lendo dados Vamos considerar os dados de internações no estado do Acre em Março de 2018. Lendo esses dados ```{r histograma, out.width="80%"} library(read.dbc) u <- 'ftp://ftp.datasus.gov.br/dissemin/publicos/SIHSUS/200801_/dados/RDAC1803.dbc' download.file(u, 'dados.dbc') d <- read.dbc('dados.dbc') ``` ## Inserindo uma figura Vamos fazer uma figura do histograma da idade dos pacientes. Vemos esse histograma na Figura \ref{hist}. ```{r hist, out.width="90%", fig.cap="\\label{hist}Histograma default."} h <- hist(d$IDADE, main='') j <- which.max(d$counts) ``` A classe de idade com maior frequencia é a faixa com idade entre `r h$breaks[j]` e `r h$breaks[j+1]`, com um total de `r h$counts[j]`. ## Exemplos de referências bibliográficas O pacote **ggplot2**, @ggplot2, tem sido bastante utilizado atualmente para fazer gráficos. Um histograma feito com esse pacote pode ser visto na Figura \ref{histogram}. ```{r histogram, out.width="90%", fig.cap="\\label{histogram}Hitograma com ggplot2."} library(ggplot2) ggplot(data=d['IDADE']) + geom_histogram(aes(IDADE)) ``` ## Tabelas Os são categorizados para serem visualizados em histograma. O histograma nada mais é que a visualização de uma tabela de frequencias desses dados categorizados. Podemos ver as frequencias do histograma da Figure \ref{hist} na Tabela \ref{freqtab}. ```{r kable} tab <- data.frame(Frequencia=h$counts) k <- length(h$breaks) rownames(tab) <- paste(h$breaks[-k], "a", h$breaks[-1]) knitr::kable(tab, caption="\\label{freqtab}Tabela de frequencias.") ``` ## Referências