This is a personal package gathering some functions I frequently use in analysis. Rather than searching for them, or remaking them time after time, I will be packaging them up here.
And the development version from GitHub with:
# install.packages("devtools")
devtools::install_github("suzanbaert/analysistools")Get the kmeans elbow plot:
kmeans_elbow(iris[-5])
Or get a second opinion on the number of clusters via Silhouette analysis. This shows the average silhouette width for each number of clusters.
silhouette_plot(iris[-5])
ggplot_colors(n)gives the HEX codes of ggplot colors