Данные о раке поступают из пакета poLCA .
library(poLCA)
data(caricoma)
?carcinoma
Согласно странице справки, данные представляют дихотомические оценки семи патологов. 1 = «нет» и 2 = «да». Таким образом, вычитая 1 и принимая суммы столбцов, вы получите частоты для каждого патолога.
colSums(carcinoma-1)
# A B C D E F G
#66 79 45 32 71 25 66
Графики облегчаются путем преобразования в длинную форму, поэтому мы получаем только два столбца.
library(tidyverse)
carcinoma %>%
pivot_longer(everything()) %>%
mutate(value=value-1) %>%
ggplot(aes(x=name, y=value)) +
geom_col()