更改地層圖上的x軸限制（即多面板圖）

Question

如何手動調整地層圖中每個面板的x軸限制？

例如，這裏的Stratiplot從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"))) 

我怎麼可能，例如，G.ruber的XLIM更改爲C（0.3，0.9）和G.pacR到c（0,0.75）？

或者，另一種可能性，下面是riojastrat.plot：

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) 

我怎麼可能，例如，TA004A的XLIM更改爲C（0,20）？

我想我需要提供一些東西來解決底層格子/底圖的代碼，但我不知道該如何開始。

Answer 1

這是通過調整劇情對象的限制，並利用格子額外的包來調整面板

# 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)) 

這給

然而，這不是一個快速的部分答案包括每個分段開始處的小空白處