# NOT RUN {
data(cancer, package = "survival")
cancer$status <- factor(cancer$status)
plot_frequency(data = cancer, partition.name = "status",
vars.cat = c("sex", "ph.ecog"))
## With unclassifieds
cancer$status.2 <- as.character(cancer$status)
cancer$status.2[sample(1:nrow(cancer), 30)] <- "Unclassif."
cancer$status.2 <- factor(cancer$status.2)
plot_frequency(data = cancer, partition.name = "status.2",
vars.cat = c("sex", "ph.ecog"),
unclass.name = "Unclassif.", include.unclass = TRUE)
## With unclassifieds (as NA)
cancer$status.3 <- cancer$status
cancer$status.3[sample(1:nrow(cancer), 30)] <- NA
plot_frequency(data = cancer, partition.name = "status.3",
vars.cat = c("sex", "ph.ecog"),
unclass.name = NA, include.unclass = TRUE)
plot_frequency(data = cancer, partition.name = "status.3",
vars.cat = c("sex", "ph.ecog", "ph.karno"),
binary.simplify = FALSE,
unclass.name = NA, include.unclass = FALSE)
# }
Run the code above in your browser using DataLab