Change the borders of the x axis to stratigraphic graphs (i.e. multi-panel graphs)

Question

How to manually adjust the x-axis limits for each panel in a stratigraphic chart?

For example, here is Stratiplot from analogue :

 library(analogue) data(V12.122) Depths <- as.numeric(rownames(V12.122)) (plt <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, data = V12.122, type = c("h","l","g","smooth"))) 

How can I, for example, change xlim G.ruber to c (0.3, 0.9) and G.pacR to c (0, 0.75)?

Or, another possibility, here is strat.plot from rioja :

 library(rioja) library(vegan) ## decorana data(RLGH) # remove less abundant taxa mx <- apply(RLGH$spec, 2, max) spec <- RLGH$spec[, mx > 3] depth <- RLGH$depths$Depth #basic stratigraphic plot strat.plot(spec, y.rev=TRUE) 

How can I, for example, change xlim TA004A to c (0, 20)?

I suppose I need to provide something to address the base lattice / base code, but I'm not sure how to start from this.

Answer 1

This is the quick response of the part, by setting the limits of the plot object and using the Extra package lattice to resize the panels.

 # your data library(analogue) data(V12.122) Depths <- as.numeric(rownames(V12.122)) (plt <- Stratiplot(Depths ~ O.univ + G.ruber + G.tenel + G.pacR, data = V12.122, type = c("h","l","g","smooth"))) # manually change the limits of second panel # this auto updates ticks and labels plt$x.limits[[2]] <- c(0.25,0.95) ; # resize the panels latticeExtra::resizePanels(plt, w=c(5,5,5,5)) 

which gives

This, however, does not include a small empty space at the beginning of each segment.