Informações do Banco

Banco :Ocorrências de Acidentes em 2020

Fonte: Polícia Rodoviária Federal

Títulos

Os títulos são definidos pela presença e pela quantidade de #.
Um único # define o título 1 (o maior na hierarquia), dois # definem o título 2, e assim sucessivamente.
# Título 1
## Título 2

Formatação

Citação

Criando listas

Listas não-ordenadas:

Usamos asterisco para criar o item, sinal de adição para criar o subitem e traço para criar o sub-subitem. A cada nível devem ser dados 4 espaços antes.
* Item
+ Subitem
- Sub-subitem

Exemplo:

  • Item 1
    • Subitem 1
    • Subitem 2
      • Sub-subitem 1
  • Item 2
  • Item 3

Listas ordenadas:

1. Item
i) Subitem
A. Sub-subitem

Exemplo:

  1. Item 1
    1. Subitem 1
    2. Subitem 2
      A. Sub-subitem 1
  2. Item 2
  3. Item 3

Adicionando equações

As equações no RMarkdown são escritas com a linguagem LaTeX.

Para que a equação apareça no meio do texto, devemos escrevê-la entre dois cifrões: $equação$

“Esse cálculo é realizado pela equação \(\sum_{i = 1} (x_i - \mu)^2\), como comentado no item anterior.”

Para que a equação apareça no formato destacado (display), deve ser colocada entre quatro cifrões:
$$equação$$

Esse cálculo é realizado através da equação abaixo: \[\sum_{i=1}^{n}\left( \frac{X_i}{Y_i} \right)\]

Incluindo códigos R

Para adicionar qualquer código em R, devemos iniciar com três crases, seguidas por {r} e para encerrar o bloco de código, devemos fechá-lo com outras três crases.

getwd()
## [1] "C:/Users/dalvi/OneDrive/Documentos/iNFENRENCIA ESTATiSTICA"
library(dplyr)                                
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(car)                                
## Carregando pacotes exigidos: carData
## 
## Attaching package: 'car'
## The following object is masked from 'package:dplyr':
## 
##     recode
library(rstatix)                                
## 
## Attaching package: 'rstatix'
## The following object is masked from 'package:stats':
## 
##     filter
library(emmeans)
library(ggplot2)
library(knitr)
library(kableExtra)
## 
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
## 
##     group_rows
library(htmltools)
library(dplyr) 
library(readxl)

dados <- read_xlsx("acidentes.xlsx")
#kable(head(dados, 10))
library(rmarkdown)

#nitr::kable(dados)%>%
#knitr::kable(dados, align = "cccccrr")
paged_table(dados)
nrow(dados)
ncol(dados)


O banco possui 63530 observações e 28 variáveis.

causa <- datatran$fase_dia
uf <- datatran$uf
mortos <- datatran$mortos
pessoa <- datatran$pessoas
tab1 <- table(causa)
#tab1

tab1 <- table(causa)
#tab1

tab15 <- prop.table(table(causa))
#tab15

# tab com frequencia relativa
tab2 <- prop.table(table(causa))*100
#tab2

# tabela com todas as frequencias

tabzona <- matrix(c(tab1,tab15,tab2), nrow = 4, ncol = 3)
#tabzona

#acrescentar cabeçalho e coluna indicadora
colnames(tabzona) <-c("frequência absoluta", "frequência relativa", "frequência percentual")
rownames(tabzona) <-c("Amanhecer", "Anoitecer", "Plena Noite", "Pleno Dia")
tabzona
#grafico em barras verticais
#barplot(tab1) (colour ='blue', fill ='lightblue')
barplot(tab1, ylab = "Número de Ocorrências", xlab = "Fase do Dia", ylim = c(0,35000), col=rgb(0.2,0.4,0.6,0.4))
#tem que colocar dentro de um vetor ylim = c(0,50) de 0 a 50

  1. R Markdown: The Definitive Guide. Yihui Xie, J. J. Allaire, Garrett Grolemund. Disponível em: https://bookdown.org/yihui/rmarkdown/↩︎