R latticeExtra c.trellis 中缺少右刻度线

Question

当使用latticeExtra:::c.trellis 组合绘图时，右侧的刻度线和文本/数字标签丢失了，我想把它们带回来：

library(latticeExtra)

set.seed(1)
foo <- data.frame(x = 1:100, 
                  y = 1:100 + rnorm(100))
foo$resid <- with(foo, x-y)

## Plot 1 -----
(p1 <- xyplot(y~x, foo))

## Plot 2 -----
(p2 <- 
    xyplot(resid~x, foo, 
           scales = list(rot = 0, tck = c(1,1), alternating = 3),
           between = list(y = 1), ylab.right = "ylab.right", 
           # par.settings = list(axis.components = 
           #                       list(right = list(pad1 = 2, pad2 = 2)))
           # Note: this padding attempt does not restore the missing ticks,
           # pad arguments get ignored when using c.trellis below
           ))
# tick marks appear on all four sides (as desired)

## Combine -----
(p12 <- latticeExtra:::c.trellis(p2, p1,layout = c(1,2)))
# right tick marks are missing

有没有办法手动恢复右侧的刻度和/或标签，例如，通过修改组合的 trellis 对象？

Answer 1

来自帮助文件?c.trellis：

说明

将多个格子对象的面板合并为一个。

以后，

请注意，组合来自不同类型地块的面板并不真正适合格子模型。情节的某些功能可能无法按预期工作。特别是，可能需要一些工作来显示或隐藏选定面板上的比例。下面给出一个例子。

在我看来，您并没有真正尝试将面板组合成一个对象。您甚至可以使用between 进行分隔。相反，您正在尝试合并两个图。

你可以使用print，

print(p1,split=c(1,1,1,2),more=TRUE)
print(p2,split=c(1,2,1,2),more=FALSE)

见?print.trellis。