main = "Выживаемость, заболевших СПИДом", col = "blue")
Результат выполнения данного кода представлен на рисунке 17.
&hide_Cookie=yes)
Рисунок 17 – Гистограмма распределения по возрасту пациентов с подтвержденным диагнозом иммунодефицита
В листинге 13 представлен пример построения гистограммы распределения с помощью geom_bar (), входящей в пакет ggplot2.
Листинг 13
library(“MASS”) #Подключение пакета, содержащего исследуемые данные
library(“ggplot2”) #Подключаем пакет ggplot2, содержащий geom_bar ()
dBreak <-5*log10(N) #Определяем количество интервалов для гистограммы
dBreak <- round(dBreak) #Округляем значение до целых чисел
interval <- cut (Aids2$age, breaks = dBreak) # Разбиваем данные на 12 интервалов
interval <- as. factor(interval) #Преобразуем интервалы в факторы
p<- ggplot()
p<- p+geom_bar(mapping = aes(x=interval), fill = “blue”, stat= “count”)
p<- p+labs (x= “Возраст выявления, полных лет”,
y = “Количество, чел”, title = “Выживаемость, заболевших СПИДом”)
print(p)
На рисунке 18 представлен результат выполнения листинга 13.
&hide_Cookie=yes)
Рисунок 18 – Гистограмма распределения по возрасту пациентов с подтвержденным диагнозом иммунодефицита
Стоит отметить, что при применении функции geom_bar (), входящей в пакет ggplot2, не требуется отдельного подсчета количества вхождений в каждый интервал, функция делает это автоматически.