# \donttest{
# Generate data for the example
set.seed(123L)
jobchange2 <- jobchange[sample(nrow(jobchange), size = 1000), ]
# Visualize hcluster chart for variables with missing value.
plot_na_hclust(jobchange2)
# Change the main title.
plot_na_hclust(jobchange2, main = "Distribution of missing value")
# Non typographic elements
plot_na_hclust(jobchange2, typographic = FALSE)
# }
Run the code above in your browser using DataLab