Changed vjust in textGrob to 0.5 to fix over-and-under spacing of tex…

…t on curves
AllanCameron · Nov 26, 2021 · 9f59f2e · 9f59f2e
1 parent 67fe212
commit 9f59f2e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/geometry_helpers.R b/R/geometry_helpers.R
@@ -68,6 +68,8 @@
 
   letters <- measure_text(label, gp = gp, vjust = vjust[1], halign = halign)
 
+  letters$ymin <- letters$ymin - measure_text("x", gp = gp, vjust = 0.5)$ymin[1]
+
   y_pos <- unique(c(0, letters$ymin))
 
   offset <- .get_offset(path$x, path$y, d = y_pos)

diff --git a/R/grob_textpath.R b/R/grob_textpath.R
@@ -181,7 +181,7 @@ makeContent.textpath <- function(x) {
     x, textGrob(
       label = text$label,
       x = text$x, y = text$y, rot = text$angle,
-      vjust = 0, hjust = 0.5, gp = gp_text,
+      vjust = 0.5, hjust = 0.5, gp = gp_text,
       default.units = "inches"
     )
   )