data("sierraTransect")
# split transects
g <- subset(sierraTransect, transect == 'Granite')
a <- subset(sierraTransect, transect == 'Andesite')
g.p <- alignTransect(g$elev, x.min = 1, x.max = length(g), fix = FALSE)
a.p <- alignTransect(a$elev, x.min = 1, x.max = length(a), fix = FALSE)
op <- par(mar=c(2,0,0,2), mfrow=c(2,1))
plotSPC(g, width=0.25, name.style='center-center',
cex.names=0.75,
relative.pos = g.p$relative.pos, plot.order = g.p$order)
axis(1, at = g.p$relative.pos, labels = g.p$grad, line = -1.5)
plotSPC(a, width=0.25, name.style='center-center',
cex.names=0.75,
relative.pos = a.p$relative.pos, plot.order = a.p$order)
axis(1, at = a.p$relative.pos, labels = a.p$grad, line = -1.5)
par(op)
Run the code above in your browser using DataLab