pp <- read.csv(file = (description = "i:/pp_1.csv"), sep = ";", h=F, dec =
",") # считываю файл в таблицу
Форум дисциплины
Работа с R
Работа с R
Re: Работа с R
pp$id <- 1:nrow(pp) # добавляю столбик с нумерацией
Re: Работа с R
library(ggplot2) # подключаю библиотеку ggplot2 (если она не установлена, то сначала install.packages("ggplot2"))
Re: Работа с R
# добавляю на график подписи шкал
ggplot(pp, aes(x = pp$id, y = pp$V1)) +
geom_line() +
xlab("Номер вида") +
ylab("Обилие вида")
Re: Работа с R
# добавляю название графика
ggplot(pp, aes(x = pp$id, y = pp$V1)) +
geom_line() +
xlab("Номер вида") +
ylab("Обилие вида") +
ggtitle("Распределение видов на пробной площадке")
Re: Работа с R
# изменяю тему графика на белую
ggplot(pp, aes(x = pp$id, y = pp$V1)) +
geom_line() +
xlab("Номер вида") +
ylab("Обилие вида") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
Re: Работа с R
pp$sd <- sort(pp$V1, decreasing = T) # сортирую обилия по убыванию и помещаю эти данные в новый столбик
Re: Работа с R
# строю новый график
ggplot(pp, aes(x = pp$id, y = pp$sd)) +
geom_line() +
xlab("Номер вида") +
ylab("Обилие вида") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
Re: Работа с R
pp$lid <- log2(pp$id) # логарифмирую (по основанию 2) номера видов и помещаю эти данные в новый столбик
Re: Работа с R
# строю новый график
ggplot(pp, aes(x = pp$lid, y = pp$sd)) +
geom_line() +
xlab("Логарифм номера вида") +
ylab("Обилие вида") +
ggtitle("Распределение видов на пробной площадке") +
theme_bw()
Re: Работа с R
pp$csd <- cumsum(pp$sd) # считаю накопленное обилие и помещаю эти данные в
новый столбик