# создаю гистограмму, подписываю оси, задаю заголовок и чёрно-белую тему; столбики гистограммы заливаю серым цветом, окантовку столбиков делаю чёрной
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()
l <- c(1:13) # создаю произвольный массив той же длины
# строю два графика, раскрашивая линии в разные цвета; подписываю шкалы, даю название графику и перевожу всё чёрно белую тему
ggplot(pp, aes(x = pp$id)) +
geom_line(aes(y = pp$V1), color = "red") +
geom_line(aes(y = l), color = "green") +
xlab("Номер вида") +
ylab("Обилие вида") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()