# NOT RUN {
data(cancer, package = "survival")
cancer$status <- factor(cancer$status)
plot_boxplot(data = cancer, partition.name = "status",
vars.cont = c("age", "meal.cal", "wt.loss"))
## 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_boxplot(data = cancer, partition.name = "status.2",
vars.cont = c("age", "meal.cal", "wt.loss"),
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_boxplot(data = cancer, partition.name = "status.3",
vars.cont = c("age", "meal.cal", "wt.loss"),
unclass.name = NA, include.unclass = TRUE, add.n = TRUE)
# }
Run the code above in your browser using DataLab