Построение частотных графиков
# создаю гистограмму, подписываю оси, задаю заголовок и чёрно-белую тему; столбики гистограммы заливаю серым цветом, окантовку столбиков делаю чёрной
ggplot(pp, aes(x = pp$V1)) +
geom_histogram(fill = "gray", color = "black") +
xlab("Обилие особей") +
ylab("Число видов") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
# создаю гистограмму, как в примере выше, но указываю, что массив данных нужно разделить на пять частей
ggplot(pp, aes(x = cut(pp$V1, 5))) +
geom_histogram(fill = "gray", color = "black") +
xlab("Обилие особей") +
ylab("Число видов") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
br <- c(0, 10, 20, 30, 40, 50) # создаю вектор для границ классов (классы с основанием 10)
# создаю гистограмму, как в примере выше, но указываю, что массив данных нужно разделить в соответствии с границами в векторе br
ggplot(pp, aes(x = cut(pp$V1, br))) +
geom_histogram(fill = "gray", color = "black") +
xlab("Обилие особей") +
ylab("Число видов") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
br_1 <- c(0, 2, 4, 8, 16, 32, 64) # создаю вектор для границ классов (октавы с основанием 2)
# создаю гистограмму, как в примере выше, но указываю, что массив данных нужно разделить в соответствии с границами в векторе br_1
ggplot(pp, aes(x = cut(pp$V1, br_1))) +
geom_histogram(fill = "gray", color = "black") +
xlab("Обилие особей") +
ylab("Число видов") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()