Aulas_Felipe
aluno
09/11/2021
Exercício 1 - Base de dados
Criar uma base de dados com 20 espécies e 8 localidades sócom presenças e ausências
tibble(
spec = paste0("sp", 1:20),
siteA = sample(c(0:1), replace=TRUE, size=20),
siteB = sample(c(0:1), replace=TRUE, size=20),
siteC = sample(c(0:1), replace=TRUE, size=20),
siteD = sample(c(0:1), replace=TRUE, size=20),
siteE = sample(c(0:1), replace=TRUE, size=20),
siteF = sample(c(0:1), replace=TRUE, size=20),
siteG = sample(c(0:1), replace=TRUE, size=20),
siteH = sample(c(0:1), replace=TRUE, size=20)
)## # A tibble: 20 × 9
## spec siteA siteB siteC siteD siteE siteF siteG siteH
## <chr> <int> <int> <int> <int> <int> <int> <int> <int>
## 1 sp1 0 1 0 1 1 1 1 0
## 2 sp2 1 1 0 1 0 1 0 0
## 3 sp3 0 1 1 1 0 1 0 0
## 4 sp4 1 0 0 0 0 1 1 1
## 5 sp5 0 0 0 1 0 0 0 1
## 6 sp6 0 1 0 0 1 1 0 0
## 7 sp7 0 0 1 0 0 1 1 0
## 8 sp8 1 1 1 1 1 0 0 0
## 9 sp9 0 1 1 1 1 1 0 0
## 10 sp10 0 0 1 1 0 1 1 1
## 11 sp11 0 0 1 1 1 0 1 0
## 12 sp12 1 1 1 0 1 1 1 1
## 13 sp13 0 1 0 0 1 1 1 0
## 14 sp14 1 1 1 0 1 1 1 1
## 15 sp15 0 1 0 0 1 0 1 1
## 16 sp16 1 1 0 0 1 0 1 1
## 17 sp17 1 1 0 1 0 0 1 0
## 18 sp18 1 1 1 1 1 1 0 1
## 19 sp19 0 1 0 0 1 1 1 0
## 20 sp20 0 1 1 1 1 0 1 0Criar uma base de dados com 20 espécies e 8 localidades com abundâncias
tibble(
spec = paste0("sp", 1:20),
siteA = sample(c(0:10), replace=TRUE, size=20),
siteB = sample(c(0:50), replace=TRUE, size=20),
siteC = sample(c(0:5), replace=TRUE, size=20),
siteD = sample(c(0:16), replace=TRUE, size=20),
siteE = sample(c(0:100), replace=TRUE, size=20),
siteF = sample(c(0:1), replace=TRUE, size=20),
siteG = sample(c(0:14), replace=TRUE, size=20),
siteH = sample(c(0:9), replace=TRUE, size=20)
)## # A tibble: 20 × 9
## spec siteA siteB siteC siteD siteE siteF siteG siteH
## <chr> <int> <int> <int> <int> <int> <int> <int> <int>
## 1 sp1 8 35 4 4 69 0 6 4
## 2 sp2 1 13 4 11 91 0 2 8
## 3 sp3 4 40 1 1 84 1 7 5
## 4 sp4 8 33 1 13 76 1 5 9
## 5 sp5 6 38 1 16 33 0 8 2
## 6 sp6 9 38 1 15 89 1 5 6
## 7 sp7 4 32 0 10 33 0 14 7
## 8 sp8 6 45 3 1 44 1 5 9
## 9 sp9 3 5 4 6 38 1 2 6
## 10 sp10 6 3 1 9 83 0 11 2
## 11 sp11 4 33 4 10 10 0 10 5
## 12 sp12 1 32 0 12 75 0 3 0
## 13 sp13 10 2 0 12 24 1 14 6
## 14 sp14 1 50 5 4 39 0 6 3
## 15 sp15 8 23 3 14 37 0 4 5
## 16 sp16 2 15 5 13 100 0 1 6
## 17 sp17 3 16 5 7 35 0 2 1
## 18 sp18 4 4 1 5 6 1 6 9
## 19 sp19 1 5 5 13 37 1 2 1
## 20 sp20 7 32 5 10 74 0 13 8Grafico com riqueza
çgjsnrglsangkn alkfhna hkfank ikafgãskh
tibble(
spec = paste0("sp", 1:20),
siteA = sample(c(0:10), replace=TRUE, size=20),
siteB = sample(c(0:50), replace=TRUE, size=20),
siteC = sample(c(0:5), replace=TRUE, size=20),
siteD = sample(c(0:16), replace=TRUE, size=20),
siteE = sample(c(0:100), replace=TRUE, size=20),
siteF = sample(c(0:1), replace=TRUE, size=20),
siteG = sample(c(0:14), replace=TRUE, size=20),
siteH = sample(c(0:9), replace=TRUE, size=20)
)->com1
ggplot(com1, aes(siteB))+geom_histogram()
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.