Meu Primeiro Documento

1 Formatação de Texto

1.1 Negrito e Italico

Meu Primeiro Documento em R markdown.

• Para adiconar palavras em italico ultilizamos um asterisco no começo e no final da palavra.

• Para adicionar um texto em negrito adicionamos dois asteriscos no começo e no final da palavra.

1.2 Subscrito e sobrescrito

• Subscrito: CO₂

• Sobrescrito: x²

• Hiperlink: Clique aqui

---

“Não há nada mais enganador que um fato óbvio.” Sherlock Holmes

---

1.3 Parágrafo

Se voce escrever uma coisa e der enter, ele faz tudo como se um mesmo paragrafo.

Para ter um novo pragrafo, sempre salte uma linha.

2 Trechos de Códigos

##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 

3 Imagens

Para adicionar imagens da internet.

• Procurar imagem;

• Clicar com botão direito e copiar link.

logo do Rmarkdown

Brasão da UFPI

4 Formulas e Equações

Equação do segundo grau:

\[ x= \frac{-b \pm \sqrt{b^2-4ac}} {2a} \]

Modelo Bonomial:

\[ f(k)= {n \choose k} p^{k} (1-p)^{n-k} \]

Covariança:

\[ cov_{x,y} = \frac{\sum\limits_{i=1}^{n}{(x_i-\overline{x}) \cdot (y_i-\overline{y})} } {n-1} \]

5 Gráfico

Banco de dados diamonds ele possui quase 54.000 diamantes(observações), e 10 variaveis.

library(tidyverse)
library(ggplot2)
diamonds

## # A tibble: 53,940 x 10
##    carat cut       color clarity depth table price     x     y     z
##    <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl>
##  1  0.23 Ideal     E     SI2      61.5    55   326  3.95  3.98  2.43
##  2  0.21 Premium   E     SI1      59.8    61   326  3.89  3.84  2.31
##  3  0.23 Good      E     VS1      56.9    65   327  4.05  4.07  2.31
##  4  0.29 Premium   I     VS2      62.4    58   334  4.2   4.23  2.63
##  5  0.31 Good      J     SI2      63.3    58   335  4.34  4.35  2.75
##  6  0.24 Very Good J     VVS2     62.8    57   336  3.94  3.96  2.48
##  7  0.24 Very Good I     VVS1     62.3    57   336  3.95  3.98  2.47
##  8  0.26 Very Good H     SI1      61.9    55   337  4.07  4.11  2.53
##  9  0.22 Fair      E     VS2      65.1    61   337  3.87  3.78  2.49
## 10  0.23 Very Good H     VS1      59.4    61   338  4     4.05  2.39
## # ... with 53,930 more rows

set.seed(6)
theme_set(theme_bw()) #escolha do tema
diamonds %>% sample_n(200) %>% # extrair a amostra
  ggplot(aes(x=carat, y=price))+ #posição dos pontos
  geom_point(alpha=1)

Gráfico 1 do banco diamonds

6 Tabelas

6.1 Sem Pacote

Implementando tabela sem pacotes.

Nome	Sexo	Altura	Peso
Amanda	F	1.68	70
Carlos	M	1.52	50
Luis	M	1.70	80

6.2 Pacotes

6.2.1 Pacote DT

Ultilizando o pacote DT. (install.packages(“DT”))

6.2.2 Pacote knitr

Ultilizando o pacote Knitr

library(knitr)
kable(iris[1:6, ], caption= "Banco de dados iris")

Banco de dados iris

Sepal.Length	Sepal.Width	Petal.Length	Petal.Width	Species
5.1	3.5	1.4	0.2	setosa
4.9	3.0	1.4	0.2	setosa
4.7	3.2	1.3	0.2	setosa
4.6	3.1	1.5	0.2	setosa
5.0	3.6	1.4	0.2	setosa
5.4	3.9	1.7	0.4	setosa

Alterando alinhamento e nome das colunas.

iris2 <- head(iris)
knitr::kable(iris2, col.names = gsub("[.]", "_", names(iris)), align= "lccrr", caption= "Dados Iris")

Dados Iris

Sepal_Length	Sepal_Width	Petal_Length	Petal_Width	Species
5.1	3.5	1.4	0.2	setosa
4.9	3.0	1.4	0.2	setosa
4.7	3.2	1.3	0.2	setosa
4.6	3.1	1.5	0.2	setosa
5.0	3.6	1.4	0.2	setosa
5.4	3.9	1.7	0.4	setosa