Загрузка данных

library(tidyverse)
library(plotly)
library(sf)
Full_Data2 <- readxl::read_excel("Data_Curculio.xlsx", sheet = "Лист3")
Data_Subfamily2 <- readxl::read_excel("Data_Curculio.xlsx", sheet = "Лист4")

Количество особей в разные месяцы

как поменять порядок столбцов??

Позже переделать подписи

Сезонная динамика за 2 года

как без костылей поместить их один под другим, чтобы дата на ggplotly показывалась правильная? как построить плавную кривую вместо угловатых

Добавить легенду

Сезонная динамика за два года по площадкам

Как в прошлом чанке

Площадка 1

Площадка 2

Площадка 3