better placement of scalebar components

uclahs-cds · Oct 1, 2024 · 8041794 · 8041794
1 parent 3da6a48
commit 8041794
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/R/SRCGrob.R b/R/SRCGrob.R
@@ -28,9 +28,7 @@ SRCGrob <- function(
  length.from.node.edge = TRUE,
  size.units = 'npc',
  scale.bar = FALSE,
- scale.bar.coords = c(0.1, 0.9)
- # scale.bar.padding = 0.5,
- # scale.bar.label.padding = 0.5
+ scale.bar.coords = c(0.5, 0.9)
  ) {
 
  add.node.text <- !is.null(node.text);

diff --git a/R/scale.bar.R b/R/scale.bar.R
@@ -77,7 +77,7 @@ create.scale.bar <- function(
 
  title <- textGrob(
  label = main,
- x = xat[1],
+ x = left.x + unit(scale.length$length / 2, 'native'),
  y = top.y,
  hjust = 0.5,
  vjust = 1,
@@ -86,7 +86,7 @@ create.scale.bar <- function(
  )
  );
 
- scale.bar.y <- top.y - unit(0.03, 'npc');
+ scale.bar.y <- top.y - unit(label.cex / 10, 'npc');
  scale.line <- segmentsGrob(
  x0 = xat[1],
  x1 = xat[2],