r - R-Lattice 封装：1 个 x 轴用于多个 y 轴

Question

我的问题与此类似： Plotting bar plot below xyplot with same x-axis? ，但对于 lattice 包而不是 ggplot。

我有 21 个 xyplots，都具有相同的 x 轴刻度，但不同的 y 轴刻度。我想用只有 1 个 x 轴但 21 个不同的 y 轴比例（每行一行）绘制所有 21 条线。我几乎在这里：，但是每个面板上打印的冗余 x 轴使这个数字变得荒谬。我的脚本：

xyplot(numhr~year | spp, xlab = "Time(years)", 
ylab = "Abundance (# per party hr)", type = "l", aspect = "fill",
strip = FALSE, scales = list(relation = "free"), as.table = TRUE,
layout = c(1,21), xlim = c(1940,2010))

有什么帮助吗？

〜凯文

Answer 1

根据上面的评论，对我的代码进行必要的更改以使其工作涉及将 'y = list(relation = "free")' 添加到 'scales' 组件。编辑代码如下：

xyplot(numhr~year | spp, xlab = "Time(years)", 
ylab = "Abundance (# per party hr)", type = "l", aspect = "fill",
strip = FALSE, scales = list(y = list(relation = "free")), as.table = TRUE,
layout = c(1,21), xlim = c(1940,2010))

这会产生这个（不幸的是，y轴仍然太紧凑，但这确实解决了最初提出的问题）：