Note
Pacotes utilizados para os exercícios:
- tidyverse
- RColorBrewer
- patchwork
- ggridges
- ggsci
- png
1) Utilizando os dados de produção de ovos nos EUA faça um gráfico mostrando a evolução do número de ovos de galinhas criadas livres (orgânicas e não-orgânicas) ao longo dos anos.
2- Utilizando os dados de produção de ovos nos EUA faça um gráfico comparando a produtividade dos diferentes tipos de processos e dos diferentes tipos de produtos.
3. Utilizando os dados de produção de ovos nos EUA faça um gráfico comparando a produtividade entre os meses dos anos.
tibble [220 × 8] (S3: tbl_df/tbl/data.frame)
$ year : chr [1:220] "2016" "2016" "2016" "2016" ...
$ month : chr [1:220] "07" "08" "09" "10" ...
$ day : chr [1:220] "31" "31" "30" "31" ...
$ prod_type : chr [1:220] "hatching eggs" "hatching eggs" "hatching eggs" "hatching eggs" ...
$ prod_process : chr [1:220] "all" "all" "all" "all" ...
$ n_hens : num [1:220] 57975000 57595000 57161000 56857000 57116000 ...
$ n_eggs : num [1:220] 1.15e+09 1.14e+09 1.09e+09 1.13e+09 1.10e+09 ...
$ Produtividade: num [1:220] 19.8 19.8 19.1 19.8 19.2 ...
tibble [220 × 8] (S3: tbl_df/tbl/data.frame)
$ year : chr [1:220] "2016" "2016" "2016" "2016" ...
$ month : chr [1:220] "07" "08" "09" "10" ...
$ day : chr [1:220] "31" "31" "30" "31" ...
$ prod_type : chr [1:220] "hatching eggs" "hatching eggs" "hatching eggs" "hatching eggs" ...
$ prod_process : chr [1:220] "all" "all" "all" "all" ...
$ n_hens : num [1:220] 57975000 57595000 57161000 56857000 57116000 ...
$ n_eggs : num [1:220] 1.15e+09 1.14e+09 1.09e+09 1.13e+09 1.10e+09 ...
$ Produtividade: num [1:220] 19.8 19.8 19.1 19.8 19.2 ...
4. Utilizando os dados do projeto portal - que não é do ET Bilu faça um gráfico mostrando a relação linear entre o tamanho do pé e o peso dos roedores.
#Inserir imagem como raster na figura
library(png)
roedor2 <- readPNG("roedor3.png") #usar uma figura em formato adequado
Call:
lm(formula = meanwgt ~ meanhfl, data = species)
Residuals:
Min 1Q Median 3Q Max
-37.816 -13.513 -4.370 3.438 94.332
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -42.4744 18.0311 -2.356 0.0294 *
meanhfl 3.4505 0.7045 4.897 1e-04 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 27.16 on 19 degrees of freedom
Multiple R-squared: 0.558, Adjusted R-squared: 0.5347
F-statistic: 23.99 on 1 and 19 DF, p-value: 1e-04
5. Utilizando os dados do projeto portal compare o peso médio e o peso dos juvenis entre os diferentes gêneros.
###6. Utilizando os dados do projeto portal compare o peso dos animais nos diferentes tratamentos para os diferentes sexos.
Opção 1 de representação de dados:
# A tibble: 28,364 × 22
censusdate month day year treatment plot stake species sex reprod age
<date> <dbl> <dbl> <dbl> <chr> <dbl> <dbl> <chr> <chr> <chr> <chr>
1 1978-01-08 1 8 1978 exclosure 3 11 OL <NA> <NA> <NA>
2 1978-01-08 1 8 1978 exclosure 3 22 <NA> <NA> <NA> <NA>
3 1978-01-08 1 8 1978 exclosure 3 54 PF M <NA> <NA>
4 1978-01-08 1 9 1978 control 14 14 OT <NA> <NA> <NA>
5 1978-01-08 1 9 1978 control 17 14 DM M Z <NA>
6 1978-01-08 1 9 1978 control 17 16 DM F <NA> <NA>
7 1978-01-08 1 9 1978 control 17 26 DS F Z <NA>
8 1978-01-08 1 9 1978 control 11 31 DM M Z <NA>
9 1978-01-08 1 9 1978 control 4 34 DS M Z <NA>
10 1978-01-08 1 9 1978 control 14 35 OL <NA> <NA> <NA>
# ℹ 28,354 more rows
# ℹ 11 more variables: testes <chr>, vagina <chr>, pregnant <chr>,
# nipples <chr>, lactation <chr>, hfl <dbl>, wgt <dbl>, tag <chr>,
# note2 <chr>, ltag <chr>, note3 <chr>
Opção 2 de representação dos dados:
7.Utilizando os dados do projeto portal faça um gráfico comparando a relação linear entre o tamanho do pé e o peso dos roedores para os diferentes tratamentos.
