# NOT RUN {
# Visualization of all numerical variables
# plot_box_numeric(heartfailure)
# Select the variable to diagnose
# plot_box_numeric(heartfailure, "age", "time")
plot_box_numeric(heartfailure, -age, -time)
# Visualize the each plots
# plot_box_numeric(heartfailure, "age", "time", each = TRUE)
# Not allow the typographic elements
# plot_box_numeric(heartfailure, typographic = FALSE)
# Using pipes ---------------------------------
library(dplyr)
# Plot of all numerical variables
# heartfailure %>%
# plot_box_numeric()
# Using groupd_df ------------------------------
heartfailure %>%
group_by(smoking) %>%
plot_box_numeric()
# heartfailure %>%
# group_by(smoking) %>%
# plot_box_numeric(each = TRUE)
# }
Run the code above in your browser using DataLab