Изменение положения базовой линии на стратиграфических графиках

Question

Как вручную отрегулировать положение базовой линии оси x для конкретной панели в стратиграфическом графике?

Например, вот Stratiplot от аналога:

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. гиЬег так, что она установлена ​​на уровне 0,4, а не 0, как мы см. график выше?

Это означает, что бары начинаются с 0,4, со значениями> 0,4, идущими справа от базовой линии, и значениями < 0,4, идущими слева от базовой линии.

Возможно, связанные с: Change x-axis limits on stratigraphic plots (ie. multi-panel plots)

Answer 1

Это немного грязный хак, но в духе Q & А вы связаны, вот способ для достижения этой цели:

# Create a dummy variable with the offset (you can also rewrite the column instead) 
V12.122$G.ruber.mod <- V12.122$G.ruber-0.4 
# Plot as normal 
(plt <- Stratiplot(Depths ~ O.univ + G.ruber.mod + G.tenel + G.pacR, 
        data = V12.122, type = c("h","l","g","smooth"))) 
# Modify the range so that it takes negative values 
plt$x.limits[[2]] <- range(V12.122$G.ruber.mod, na.rm = TRUE) 
# Modify where the labels are drawn for that plot: 
plt$x.scales$at <- list(O.univ=FALSE, 
         G.ruber.mod=seq(-.1,.1,by=.05), 
         G.tenel=FALSE, 
         G.pacR=FALSE) 
# Modify what the labels says for that plot: 
plt$x.scales$labels <- list(O.univ=FALSE, 
         G.ruber.mod=seq(-.1,.1,by=.05) + 0.4, 
         G.tenel=FALSE, 
         G.pacR=FALSE) 
# Replot: 
latticeExtra::resizePanels(plt, w=c(5,5,5,5))