A comunidade invisível de Tundra

O bioma de Tundra é conhecido por sua temperatura congelante, ventos frios e água precipitando em forma de neve. Por causa de seus longos e escuros invernos, a presença do permafrost e verões curtos, há pouca diversidade conhecida nesse bioma. Mas descobri recentemente uma comunidade que faz da Tundra sua casa, mesmo nas condições mais difíceis. Essa comunidade não é a vegetação debaixo da neve, nem os grandes herbívoros que eventualmente pastam esses musgos no verão, tampouco os animais migratórios nem os milhares de insetos.

A comunidade invisível de Tundra é o nome dado a uma comunidade que vive nas montanhas, seja na neve ou no clima mais quente de verão. Essas montanhas variam de altitude, mas no geral são montanhas altas e quanto mais perto do topo, mais fria é a temperatura. Nessas montanhas há vegetação baixa em alguns pontos, protegidas da neve por rochas da própria montanha. A comunidade invisível de Tundra é composta por populações de 7 espécies: Aguentafrius dasmontanhus, Dormisnusfrius enucalorus, Invisivius dufrius, Frozeins dugelus, Meiusda montanhus, Quasisnu topus e Nevis emaisnevis. Essa comunidade nunca foi vista antes porque eles têm uma habilidade de se esconder rapidamente de predadores e curiosos. Na minha pesquisa, encontrei um deles distraído, dormindo, na região mais baixa da montanha, a espécie Dormisnusfrius enucalorus, por isso ganhei sua confiança para explorar a comunidade.

Haviam 4 espécies no começo da montanha, na parte mais baixa, 4 espécies no meio da montanha e 4 espécie no topo da montanha. Observei que a região do começo e do meio da montanha compartilham 2 espécies, 2 espécies ocorriam no começo da montanha e no topo e 1 espécie no meio e no topo. 2 espécies ocorrem apenas em uma parte da montanha: a Meiusda montanhus ocorre somente na região do meio da montanha e a espécie Nevis emaisnevis ocorre somente no topo da montanha, onde é mais frio.
Dessa forma temos:
Região gama: 2 espécies exclusivas + 5 espécies compartilhadas = 7.
Alfa média= 4
Beta= 1,75
library(readxl)
Dados <- read_excel ("tundraR.xlsx", sheet = 1)
Dados
## # A tibble: 12 x 4
##    Espécie                   Área          `N. locais` N.espécies               
##    <chr>                     <chr>               <dbl> <chr>                    
##  1 Aguentafrius dasmontanhus Começo e topo           2 Aguentafrius dasmontanhus
##  2 Dormisnusfrius enucalorus Começo e topo           2 Aguentafrius dasmontanhus
##  3 Invisivius dufrius        Começo e meio           2 Dormisnusfrius enucalorus
##  4 Frozeins dugelus          Começo e meio           2 Dormisnusfrius enucalorus
##  5 Quasisnu topus            Meio e topo             2 Invisivius dufrius       
##  6 Meiusda montanhus         Meio                    1 Invisivius dufrius       
##  7 Nevis emaisnevis          Topo                    1 Frozeins dugelus         
##  8 <NA>                      <NA>                   NA Frozeins dugelus         
##  9 <NA>                      <NA>                   NA Quasisnu topus           
## 10 <NA>                      <NA>                   NA Quasisnu topus           
## 11 <NA>                      <NA>                   NA Meiusda montanhus        
## 12 <NA>                      <NA>                   NA Nevis emaisnevis
Essa tabela indica as espécies observadas, a área de ocorrência, o número de locais que a espécie ocorre, respectivamente. Na última coluna está indicado as espécies de forma repetida de acordo com a quantidade de vezes que ela aparece na montanha. Foi feito desta forma para conseguir expressar no gráfico mais adiante.
Dados2 <- read_excel("tundraR.xlsx", sheet = 2)
Dados2
## # A tibble: 12 x 1
##    Área  
##    <chr> 
##  1 Começo
##  2 Começo
##  3 Começo
##  4 Começo
##  5 Meio  
##  6 Meio  
##  7 Meio  
##  8 Meio  
##  9 Topo  
## 10 Topo  
## 11 Topo  
## 12 Topo
Essa tabela com uma coluna indica a quantidade de vezes que aparece as espécies (por exemplo, quatro espécies no começo da montanha, quatro no meio… )
library(ggplot2)
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v tibble  3.1.6     v dplyr   1.0.7
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## v purrr   0.3.4
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
Dados2 %>%
  ggplot(aes(Área))+
  geom_bar(fill = "yellow",color = "black")

Esse gráfico indica a área da montanha de Tundra e quantas espécies ocorrem em cada área.
Dados %>%
  ggplot(aes(N.espécies,fill=Espécie))+
  geom_bar(color = "black")+
  labs(title= "Número de espécies e quantidade que ocorrem na montanha",
       x= "Número de espécies",
       y= "Contagem")+
  theme(axis.title = element_text(size = 15,color="black"),axis.text = element_blank())

Esse gráfico indica quais espécies ocorrem em diferentes quantidades ao longo da montanha.N/A sendo nenhuma espécie.