Fix alignment of leaf labels when rotate=FALSE #28

andrie · Aug 5, 2020 · 819fa66 · 819fa66
1 parent 785c462
commit 819fa66
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: ggdendro
-Version: 0.1.20.9000
+Version: 0.1.20.9001
 Title: Create Dendrograms and Tree Diagrams Using 'ggplot2'
 Description: This is a set of tools for dendrograms and
     tree plots using 'ggplot2'.  The 'ggplot2' philosophy is to

diff --git a/NEWS b/NEWS
@@ -1,3 +1,11 @@
+ggdendro dev
+============
+
+Bug fixes:
+
+* Fix alignment of leaf labels when rotate=FALSE #28
+
+
 ggdendro 0.1-16 (Release date: )
 ==============
 

diff --git a/R/ggdendrogram.R b/R/ggdendrogram.R
@@ -41,7 +41,7 @@ ggdendrogram <- function(data, segments=TRUE, labels=TRUE, leaf_labels=TRUE,
     ifelse(rotate, 90, 0)
   }
   hjust <- if(dataClass %in% c("dendrogram", "hclust")){
-    ifelse(rotate, 0, 1)
+    ifelse(rotate, 1, 1)
   } else {
     0.5
   }
@@ -67,7 +67,7 @@ ggdendrogram <- function(data, segments=TRUE, labels=TRUE, leaf_labels=TRUE,
   }
   if(theme_dendro) p <- p + theme_dendro()
   p <- p + 
-    theme(axis.text.x = element_text(angle=angle, hjust=1)) +
+    theme(axis.text.x = element_text(angle=angle, hjust=1, vjust = 0.5)) +
     theme(axis.text.y = element_text(angle=angle, hjust=1))
 
   p

diff --git a/man/figures/README-unnamed-chunk-2-2.png b/man/figures/README-unnamed-chunk-2-2.png
diff --git a/man/figures/README-unnamed-chunk-2-3.png b/man/figures/README-unnamed-chunk-2-3.png
diff --git a/man/figures/README-unnamed-chunk-2-4.png b/man/figures/README-unnamed-chunk-2-4.png