plotSPC / fixOverlap: should assign higher charge to top and bottom hz.depths labels

[dylanbeaudette]

Multiple thin horizons near the top and/or bottom of the profile result in insufficient movement over the next closest items. A possible solution involves giving the left/right anchors in fixOverlap() a higher charge density.

library(aqp)

x <- 'A:Oe,10,10YR 2/2
A,20,10YR 3/3
E1,30,2.5Y 8/2
E2,35,2.5Y 8/2
Bhs,60,7.5YR 4/6
BC,125,7.5YR 6/4
C1,145,10YR 6/2
C2,150,10YR 6/2'

x <- quickSPC(x)

options(.aqp.plotSPC.args = list(name = NA, cex.names = 2, hz.depths = TRUE, depth.axis = FALSE, width = 0.2))

plotSPC(x, fixOverlapArgs = list(method = 'S'))

plotSPC(x, fixOverlapArgs = list(method = 'E', q = 0.5))
plotSPC(x, fixOverlapArgs = list(method = 'E', q = 1))
plotSPC(x, fixOverlapArgs = list(method = 'E', q = 5))