From 15464fa598522e730e79ff49b0b490fa102fee64 Mon Sep 17 00:00:00 2001 From: whelena Date: Sat, 12 Apr 2025 22:24:16 -0700 Subject: [PATCH] add correction to center N node when plot is horizontal --- R/add.nodes.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/add.nodes.R b/R/add.nodes.R index 951e411..c612de4 100644 --- a/R/add.nodes.R +++ b/R/add.nodes.R @@ -101,7 +101,7 @@ add.normal <- function(clone.out, node.radius, label.cex, normal.cex = 1) { vp = vpStack( make.plot.viewport(clone.out, clip = 'off'), viewport( - y = unit(1, 'npc'), + y = unit(1, 'npc') - unit(node.radius * normal.cex, 'inches'), x = unit(0, 'native'), height = grobHeight(normal.box), width = grobWidth(normal.box),