Подготовка

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

Загрузка пакетов и данных

library(tidyverse)
library(plotly)
library(sf)
curc <- readxl::read_excel("4R.xlsx") 
curc_work <- curc %>%
  pivot_longer(-1:-3, names_to = "MyDate", values_to = "Amount") %>%
  filter(Amount != 0)
curc_month <- curc %>%
  mutate (jun_mid = jun15 + jun16,
          jul_beg = jul1 + jul2,
          jul_mid = jul15 + jul16) %>%
  select(Familia, Subfamilia, jun_mid, jul_beg, jul_mid)

Графики

Зависимость количества пойманных жуков от даты сбора

Сборы проходили в 2024 году 15.06.2024, 16.06.2024, 01.07.2024, 02.07.2024, 15.07.2024 и 16.07.2024 (jun15, jun16, jul1, jul2, jul15 и jul16 соответственно)

plt <- ggplot(curc_work, aes(MyDate, Amount, fill = Subfamilia)) +
  geom_col() +
  scale_fill_discrete(labels = unique(curc_work$Subfamilia))
ggplotly(plt)

Распределение надсемейств в разные месяцы сбора

Распределение по надсемействам в зависимости от месяца

june

curc_month_jun <- curc_month %>%
  group_by(Subfamilia) %>%
  summarise(Am = sum(jun_mid), .groups = "drop")
pie(curc_month_jun$Am, labels = curc_month_jun$Subfamilia)

start july

curc_month_jul1 <- curc_month %>%
  group_by(Subfamilia) %>%
  summarise(Am = sum(jul_beg), .groups = "drop")
pie(curc_month_jul1$Am, labels = curc_month_jul1$Subfamilia)

mid july

curc_month_jul2 <- curc_month %>%
  group_by(Subfamilia) %>%
  summarise(Am = sum(jul_mid), .groups = "drop")
pie(curc_month_jul2$Am, labels = curc_month_jul2$Subfamilia)

Описание объекта

Представители надсемейства Curculionoidea - жуки средней или малой величины (размером от 1 до 50 мм). Основные признаки, отличающие их от других жуков – вытянутая в головотрубку голова, на конце которой располагаются челюсти, коленчатые усики (за исключением примитивных групп – у них усики не коленчатые) с булавой на концах и пятичлениковые лапки. Форма тела долгоносиков может быть различной и варьирует от узкой и длинной до короткой и широкой, почти шарообразной. Надкрылья долгоносиков плотные и сильно скульптурированные, чаше всего скромной невзрачной окраски, но есть среди них и виды, окраска которых обусловлена яркими чешуйками с металлическим блеском. Надсемейство Curculionidae включает в себя три семейства.

Curculionidae

Самое многочисленное по числу известных видов семейство, насчитывает более 50 тысяч известных видов, из которых в России более 1900 видов.

Тело разнообразной формы – от узкого цилиндрического до почти сферического. Размеры тела до 30 мм, но у тропических представителей могут достигать 50 мм. Голова обычно шаровидная, вытянутая в головотрубку, которая может быть разной длины и толщины. Глаза крупные или мелкие из нескольких фасеток, реже отсутствуют, дополнительных глазков нет. Усики 9-12-члениковые, коленчатые с булавой на конце.

В рамках семейства выделено 14 подсемейств:

Bagoinae

Brachycerinae

Conoderinae

Cossoninae

Curculioninae

Cyclominae

Dryophthorinae

Entiminae

Hyperinae (представитель на рисунке - Hypera meles)

Lixinae

Mesoptiliinae

Molytinae

Platypodinae

Scolytinae

Brentidae

В мировой фауне известно около 1500 видов, в России – 179.

Включает значительно различающиеся подсемейства:

Brentinae

Apioninae (Представитель на рисунке - Eutrichapion viciae)

Nanophyinae

Attelabidae

В мировой фауне известно около 1000 видов трубковертов, в России насчитывается около 120 видов. По внешнему облику представители семейства весьма разнообразны. Представители подсемейства Rhynchitinae внешне довольно похожи на представителей семейства Curculionidae, а подсемейства Attelabinae и Apoderinae отличаются вытянутой в теменной части головой, особым устройством переднеспинки и передних ног.

В пределах семейства трубковертов выделяют три подсемейства:

Attelabinae

Apoderinae (Представитель на рисунке - Apoderus coryli)

Rhynchitinae