From 54fe8542c32fdd41ab04c1eceb6640ca36ef25b2 Mon Sep 17 00:00:00 2001 From: Magnus Dehli Vigeland Date: Thu, 15 Sep 2022 08:32:10 +0200 Subject: [PATCH] Fix vertical scaling --- R/plot.pedigree.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/plot.pedigree.R b/R/plot.pedigree.R index 673333c0..5c921373 100644 --- a/R/plot.pedigree.R +++ b/R/plot.pedigree.R @@ -146,13 +146,13 @@ plot.pedigree <- function(x, id = x$id, status = x$status, boxsize <- symbolsize* min(ht1, ht2, stemp1, wd2) # box size in inches hscale <- (psize[1]- boxsize)/diff(xrange) #horizontal scale from user-> inch - vscale <- (psize[2]-(stemp3 + stemp2/2 + boxsize))/ max(1, maxlev-1) + vscale <- (psize[2]-(stemp3 + stemp2 + boxsize))/ max(1, maxlev-1) boxw <- boxsize/hscale # box width in user units boxh <- boxsize/vscale # box height in user units labh <- stemp2/vscale # height of a text string legh <- min(1/4, boxh *1.5) # how tall are the 'legs' up from a child - par(usr=c(xrange[1]- boxw/2, xrange[2]+ boxw/2, - maxlev+ boxh+ stemp3 + stemp2/2 , 1)) + par(usr=c(xrange[1]- boxw/2, xrange[2]+ boxw/2, + maxlev+ boxh+ stemp3/vscale + stemp2/vscale , 1)) ## Doc: end of sizing ## Doc: Sizing ## Doc: subsection: drawbox