Информация о данных

Были произведены полевые работы по определению видов растений на горной местности в черте города Екатеринбург - район уктус и за городом - территория биостанции, гора “Светлая” и “Лысая”. У растений была измерена толщина (в мкм), а также были собраны образцы для дальнейшего исследования. Листья были взвешены, высушенны и взвешены повторно и записаны в граммах. Данные занесены в таблицу.

Гипотеза

Синантропные виды растений имеют большую производимость, чем виды, выращенные на нетронутой горной территории.

Цель работы

Рассчитать и проанализировать средние значения толщины листьев, найденных растений на горной местности в черте города и за его чертой;

Сравнить массу свежих листьев на территории Уктуса и Биостанции;

Сравнить сухую массу листьев на территории Уктуса и Биостанции;

Графически отобразить полученные данные.

Рассчеты средних значений

Рассчет среднего значения толщины листьев, найденых видов в мкм на Уктусе и на Биостанции

p %>%  
  group_by(station) %>%
  filter(!is.na(station)) %>%
  summarise(t = mean(width)) %>%
  arrange(desc(t))
## # A tibble: 2 × 2
##   station     t
##   <chr>   <dbl>
## 1 Uctus    320.
## 2 Bios     279.

Вывод: среднее значение толщины листьев в районе Уктуса несколько больше, чем на территории Биостанции

Анализ массы свежих листьев

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

p %>%  
  group_by(station) %>%
  filter(!is.na(station)) %>%
  summarise(s = mean(m)) %>%
  arrange(desc(s)) %>%
  qplot(
    data=.,
    x = station,
    y = s,
    fill = station,
    geom = 'col',
    xlab='Местность', ylab='Среднее значение массы свежих листьев,г'
  )

Анализ сухой массы листьев

p %>%  
  group_by(station) %>%
  filter(!is.na(station)) %>%
  summarise(s = mean(drym)) %>%
  arrange(desc(s)) %>%
  qplot(
    data=.,
    x = station,
    y = s,
    fill = station,
    geom = 'col',
    xlab='Местность', ylab='Среднее значение сухой массы листьев,г'
  )

По данным данных двух графиков мы видим, что на синантропной местности листья гораздо тольще и больше по массе, как в свежем, так и высушенном состоянии, по сравнению с видами, найденными на биостанции.