Лишайники

Эпифитные лишайники

Эпифитные лишайники

Эпифитные лишайники поселяются на деревьях и кустарниках. Среди них также можно выделить несколько подгрупп:

эпифилльные лишайники, растущие на листьях деревьев и кустарников; настоящие эпифитные лишайники, растущие на коре;

и эпиксильные лишайники, растущие на обнаженной и обработанной древесине.

Количество видов лишайников разных родов, обнаруженных на различных древесных породах

library(readxl)
library(tidyr)
library(tidyverse)
library(vegan)
m <- read_excel("эр.xlsx", sheet = "Лист1") 

as_tibble(m)

## # A tibble: 10 × 13
##    ...1            `Betula spp.` `Pinus kochiana` `Salix caprea` `Alnus incana`
##    <chr>                   <dbl>            <dbl>          <dbl>          <dbl>
##  1 Parmeliaceae               41               38             16              6
##  2 Physciaceae                20                9             11             11
##  3 Lecanoraceae                8                8              6              2
##  4 Ramalinaceae                8                4              6              3
##  5 Teloschistaceae             6                1              4              6
##  6 Cladoniaceae                3                5              1              0
##  7 Candelariaceae              5                3              5              1
##  8 Collemataceae               4                0              2              2
##  9 Peltigeraceae               3                0              2              0
## 10 Pertusariaceae              3                0              0              0
## # ℹ 8 more variables: `Carpinus caucasica` <dbl>, `Pyrus caucasica` <dbl>,
## #   `Prunus divaricata` <dbl>, `Malus orientalis` <dbl>,
## #   `Quercus macranthera` <dbl>, `Juniperus oblonga` <dbl>,
## #   `Populus tremula` <dbl>, `Tilia cordata` <dbl>

Визуализируем таблицу количества родов по количеству составляющих их видов

library(ggplot2) 
b<-read_excel("эр.xlsx", sheet = "Лист2") %>% 
  ggplot(aes(y =`Число видов`))+ 
  geom_histogram(linetype="dotdash", color = "green",fill="orange", alpha=0.6)
b