Луга являются частью природного наследия. Сохранение их необходимо как для устойчивости экосистемы ввиду использования растений фаунистическим населением в качестве среды обитания и пропитания, так и для людей ввиду использования лугов как полезного культурно-оздоровительного ресурса.

Необходимые пакеты

library(tidyverse)
library(sf)
library(ggplot2)

В качестве объекта для изучения данной тематики был выбран луг близ аллеи Крапивина. Луг делился на три части по принципу разной степени зарастания: заросший участок, зарастающий участок, незаросший участок.

ggplot () +
  geom_sf(data = Границы, color = "black", linewidth = 1) +
  geom_sf(data = Площадки, color = "red", size = 3) +
  theme_bw()

Рисунок 1 - Карта графическая

Рисунок 2 - Карта из QGIS

Рисунок 3 - Заросший участок

Рисунок 4 - Зарастающий участок

Рисунок 5 - Незаросший участок

На каждом из участков закладывалось по 16 пробных площадок 50 на 50 см. В результате описаний получены данные о количестве видов растений и среднем проективном покрытии. После определения видов определялась также принадлежность к ценотической группе. На каждом из участков были отобраны пробы почвы для определения её средней плотности.

Загружаем таблицу с количеством видов на участках и создаем график

Виды  <- readxl::read_excel("Результаты описаний.xlsx", sheet = "Количество видов")
ggplot(Виды, aes(x = Участок, y = `Количество видов (шт)`, fill = Участок)) +
  geom_col(color = "black", linewidth = 1) +
  geom_text(aes(label = `Количество видов (шт)`), vjust = -0.5, size = 3.5) +   
  scale_y_continuous(limits = c(0, 50)) +
  theme_minimal()

Загружаем таблицу со средним проективным покрытием на участках и создаем график

ПП  <- readxl::read_excel("Результаты описаний.xlsx", sheet = "Проективное покрытие")
ggplot(ПП, aes(x = Участок, y = `Проективное покрытие (%)`, fill = Участок)) +
  geom_col(color = "black", linewidth = 1) +
  geom_text(aes(label = `Проективное покрытие (%)`), vjust = -0.5, size = 3.5) +  
  scale_y_continuous(limits = c(0, 100)) +
  theme_minimal()

Загружаем таблицу с количеством ценотических групп на участках и создаем график

Группы  <- readxl::read_excel("Результаты описаний.xlsx", sheet = "Ценотические группы")
ggplot(Группы, aes(x = Участок, y = `Количество ценотических групп (шт)`, fill = Участок)) +
  geom_col(color = "black", linewidth = 1) +
  geom_text(aes(label = `Количество ценотических групп (шт)`), vjust = -0.5, size = 3.5)+
  scale_y_continuous(limits = c(0, 15)) +
  theme_minimal()

Загружаем таблицу со средними значениями плотности почвы на участках и создаем график

Почва  <- readxl::read_excel("Результаты описаний.xlsx", sheet = "Плотность почвы")
ggplot(Почва, aes(x = Участок, y = `Плотность почвы (г/см³)`, fill = Участок)) +
  geom_col(color = "black", linewidth = 1) +
  geom_text(aes(label = `Плотность почвы (г/см³)`), vjust = -0.5, size = 3.5)+
  scale_y_continuous(limits = c(0, 0.8)) +
  theme_minimal()

В ходе описаний был выявлен краснокнижный вид - наперстянка крупноцветковая (Digitalis grandiflora Mill.). Встречаемость вида наивысшая на незаросшем участке (12,5% площадок).

Рисунок 6 - Наперстянка крупноцветковая (Digitalis grandiflora Mill.) на площадке № 13 на незаросшем участке