Plot dendrograms with y-axis in percent

- Plot dendrograms with y-axis in percent - Change y-axis to "Fraction of Regularization"
DataSlingers · Dec 19, 2018 · 190b13a · 190b13a
1 parent 5b1024d
commit 190b13a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/R/plot_carp.R b/R/plot_carp.R
@@ -395,10 +395,11 @@ carp_dendro_plot <- function(x,
   as.dendrogram(x) %>%
     set("branches_lwd", dend.branch.width) %>%
     set("labels_cex", dend.labels.cex) %>%
-    plot(ylab = "Amount of Regularization",
-         cex.lab = dend.ylab.cex,
+    plot(ylab = "Fraction of Regularization",
+         cex.lab = dend.ylab.cex, yaxt = "n",
          ...)
 
+  axis(2, at = c(0, 0.25, 0.5, 0.75, 1), labels = c("0%", "25%", "50%", "75%", "100%"), las=2)
   if(show_clusters){
 
     if(has_percent){

diff --git a/R/plot_cbass.R b/R/plot_cbass.R
@@ -376,7 +376,10 @@ cbass_dendro_plot <- function(x,
   as.dendrogram(x, type = type) %>%
            set("branches_lwd", dend.branch.width) %>%
            set("labels_cex", dend.labels.cex) %>%
-           plot(ylab = "Amount of Regularization", cex.lab = dend.ylab.cex, ...)
+           plot(ylab = "Fraction of Regularization",
+                cex.lab = dend.ylab.cex, yaxt = "n", ...)
+
+  axis(2, at = c(0, 0.25, 0.5, 0.75, 1), labels = c("0%", "25%", "50%", "75%", "100%"), las=2)
 
   if(show_clusters){
     labels <- get_cluster_labels(x, k.row = k.row, k.col = k.col, percent = percent, type = type)