Общие и специфические свойства шкурок соболя и куницы лесной

Куньи, или куницеобразные (лат. Mustelidae), — семейство млекопитающих отряда хищных. Являются одним из наиболее богатых видами семейств. Размеры куньих для хищников довольно малы. Куньи умеют хорошо приспосабливаться к различным условиям, поэтому представлены во всех частях света. (Более подробная информация тут)

Куница лесная

Куница лесная (лат. Martes martes) — род хищных млекопитающих из семейства куньих (Mustelidae). Обитает в Европе и западных частях Азии и населяет главным образом лесные местности. (Больше информации тут)

Основное пятно

m %>% 
  filter(taxa == "M.martes") %>% 
  count(taxa, SPOT_size) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_size)) +
  geom_col(position = "dodge") +
  labs(x = "Вид", y = "Количество особей", fill = "Размер",
       title = "Частота встречаемости пятна")

Форма пятна

m %>% 
  filter(taxa == "M.martes") %>% 
  count(SPOT_shape) %>% 
  ggplot(aes (x = n, y = SPOT_shape)) +
  geom_col()+
  coord_flip()+
  labs(x = "Количество особей", y = "Форма", 
       title = "Частота встречаемости различной формы пятна")

Цвет пятна

m %>% 
  filter(taxa == "M.martes") %>% 
  count(taxa, SPOT_color) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_color)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Цвет",
       title = "Частота встречаемости различного цвета пятна")

Седина

m %>% 
  filter(taxa == "M.martes") %>% 
  count(taxa, gray) %>% 
  ggplot(aes (x = taxa, y = n, fill = gray)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Наличие седины",
       title = "Частота встречаемости седины")

Форма хвоста

m %>% 
  filter(!is.na(tail), (taxa == "M.martes")) %>% 
  count(tail, taxa) %>% 
  ggplot(aes (x = taxa, y = n, fill = tail)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Хвост",
       title = "Частота встречаемости различной формы хвоста")

Дополнительное пятно

m %>%   
  filter(taxa == "M.martes") %>% 
  count(taxa, AddSpotColor) %>% 
  ggplot(aes (x = taxa, y = n, fill = AddSpotColor)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Дополнительное пятно",
       title = "Частота встречаемости дополнительного пятна")

Соболь

Соболь (лат. Martes zibellina) — млекопитающее семейства куньих (Mustelidae). Соболи являются ценными пушными зверями. Развит как промысел, так и разведение на фермах. (Больше информации тут)

Основное пятно

m %>% 
  filter(taxa == "M.zibellina") %>% 
  count(taxa, SPOT_size) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_size)) +
  geom_col(position = "dodge") +
  labs(x = "Вид", y = "Количество особей",fill = "Размер",
       title = "Частота встречаемости пятна")

Форма пятна

m %>% 
  filter(taxa == "M.zibellina") %>% 
  count(SPOT_shape) %>% 
  ggplot(aes (x = n, y = SPOT_shape)) +
  geom_col()+
  coord_flip()+
  labs(x = "Количество особей", y = "Форма", 
       title = "Частота встречаемости различной формы пятна")

Цвет пятна

m %>% 
  filter(taxa == "M.zibellina") %>% 
  count(taxa, SPOT_color) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_color)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Цвет",
       title = "Частота встречаемости различного цвета пятна")

Седина

m %>% 
  filter(taxa == "M.zibellina") %>% 
  count(taxa, gray) %>% 
  ggplot(aes (x = taxa, y = n, fill = gray)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Наличие седины",
       title = "Частота встречаемости седины")

Форма хвоста

m %>% 
  filter(!is.na(tail), (taxa == "M.zibellina")) %>% 
  count(tail, taxa) %>% 
  ggplot(aes (x = taxa, y = n, fill = tail)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Хвост",
       title = "Частота встречаемости различной формы хвоста")

Дополнительное пятно

m %>%   
  filter(taxa == "M.zibellina") %>% 
  count(taxa, AddSpotColor) %>% 
  ggplot(aes (x = taxa, y = n, fill = AddSpotColor)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Дополнительное пятно",
       title = "Частота встречаемости дополнительного пятна")

Общее

Основное пятно

m %>% 
  count(taxa, SPOT_size) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_size)) +
  geom_col(position = "dodge") +
  labs(x = "Вид", y = "Количество особей", fill = "Размер",
       title = "Частота встречаемости пятна")

Форма пятна

m %>%  
  count(taxa, SPOT_shape) %>% 
  ggplot(aes (x = n, y = SPOT_shape, fill = taxa)) +
  geom_col()+
  coord_flip()+
  labs(x = "Количество особей", y = "Форма", fill = "Вид",
       title = "Частота встречаемости различной формы пятна")

Цвет пятна

m %>% 
  count(taxa, SPOT_color) %>% 
  ggplot(aes (x = taxa, y = n, fill = SPOT_color)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Цвет",
       title = "Частота встречаемости различного цвета пятна")

Седина

m %>% 
  count(taxa, gray) %>% 
  ggplot(aes (x = taxa, y = n, fill = gray)) +
  geom_col(position = "dodge")+ 
  labs(x = "Вид", y = "Количество особей", fill = "Наличие седины",
       title = "Частота встречаемости седины")

форма хвоста

m %>% 
  filter(!is.na(tail)) %>% 
  count(tail, taxa) %>% 
  ggplot(aes (x = taxa, y = n, fill = tail)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Хвост",
       title = "Частота встречаемости различной формы хвоста")

Дополнительное пятно

m %>%   
  count(taxa, AddSpotColor) %>% 
  ggplot(aes (x = taxa, y = n, fill = AddSpotColor)) +
  geom_col(position = "dodge")+
  labs(x = "Вид", y = "Количество особей", fill = "Дополнительное пятно",
       title = "Частота встречаемости дополнительного пятна")