Анализ роста популяции бактерий
K. Safiullina
2026-02-23
Введение
В этом документе представлен анализ роста популяции бактерий во времени. Изучается изменение количества бактерий в культуре на протяжении нескольких часов.
Данные о росте популяции
Ниже приведена таблица с экспериментальными данными: количество бактерий (в тысячах) измерялось каждые 2 часа.
time_hours <- seq(0, 12, by = 2)
bacteria_count <- c(5, 12, 30, 65, 120, 210, 350) # в тысячах
bacteria_data <- data.frame(
Время_часы = time_hours,
Количество_бактерий_тыс = bacteria_count
)
kable(bacteria_data, caption = "Экспериментальные данные по росту популяции бактерий")| Время_часы | Количество_бактерий_тыс |
|---|---|
| 0 | 5 |
| 2 | 12 |
| 4 | 30 |
| 6 | 65 |
| 8 | 120 |
| 10 | 210 |
| 12 | 350 |
Визуализация роста популяции
ggplot(bacteria_data, aes(x = Время_часы, y = Количество_бактерий_тыс)) +
geom_point(color = "blue", size = 3) +
geom_line(color = "blue", size = 1) +
labs(title = "Рост популяции бактерий во времени",
x = "Время (часы)",
y = "Количество бактерий (тысяч)") +
theme_minimal()## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
Изображение бактерий
Бактерия
Анализ и выводы
Из графика видно, что рост популяции бактерий происходит экспоненциально в первые часы наблюдения. Это типично для фаз быстрого размножения в бактериальной культуре.