断开R轴

最近，我在使用

xyplot

表示某些数据时遇到了一些问题。一切看起来都很好，但我的老板让我打破轴心（我不太喜欢打破轴心）。到目前为止，我已经能够使用功能

木瓦

实现这一点，但是面板的顺序非常混乱，无法读取信息。此外，我希望在图形上只显示变量

cs

no和

st

（在示例data.frame中指定的信息）的条带。然后，真正的挑战是将所有这些需求固定到lattice中，lattice是团队中图形的内部标准

下面是我的示例data.frame（）代码示例：

AA<-read.csv("~/example.csv",header = T,sep = ";",dec = ",")
    AA$st <-
      shingle(Indl.Data$t,
              intervals = rbind(c(0, 14),
                                c(23, 26)))
    AA<-AA[with(AA, order(t)), ]



    my.panel.1 <- function(x, y, subscripts, col, pch,cex,sd,...) {
      low95 <- y-sd[subscripts]
      up95 <- y+sd[subscripts]
      panel.xyplot(x, y, col=col, pch=pch,cex=cex, ...)
      panel.arrows(x, low95, x, up95, angle=90, code=3,lwd=3, 
                   length=0.05, alpha=0.5,col=col)
    }
    xyplot( logOD~t|cs+st,
            data=AA,
            strip = T,
           sd=0,
            groups=cs,
            xlab = list("Time ", cex=1.5), 
            ylab = list("growth", cex=1.5),
            type="p",
            col=c("red","black"),
            scales = list(x = "free"), between = list(x = 0.5),
            panel.groups="my.panel.1", 
            panel="panel.superpose",
            par.settings = list(layout.widths = list(panel = c(6, 2))))

---

AA您想先通过
st
，然后再通过
cs
。所以试试xyplot（logOD~t | st+cs，

）

---

如果需要，可以使用

layout=c（4,3）

。如果希望从左上角开始，可以使用

as.table=TRUE

。

在SO中搜索术语“strip.custom”（因为有许多工作示例）并阅读其帮助页面，以解决您关于条带内容的问题。其余部分我无法提供帮助，因为我不了解轴或布局需要进行哪些更改或添加。（lattice package作者强烈反对轴打断。）嗯，我已经打断了轴（这就是我有宽面板和窄面板的原因）。但是，它们不是按顺序排列的。例如，前两个（左上）是Ace（时间24-26）-fru（时间24-26），而它应该是Ace（时间0-15）-Ace（时间24-26）。谢谢你提供的关于条带的提示，我会仔细查看。尝试复制此项时，我会得到一个错误，即未找到

Indl.Data

。你完全击中了正确的方向！我想知道如何更改布局上的显示。谢谢！我不确定你更改显示的意思布局上的ay。布局由

layout=c（numColumns，numRows）

设置。您只需要偶数列，因为它们成对出现，请调整以适合您需要的布局。我首先得到了一个不适合我的图形设备的布局，因此我指定了

c（4,3）

。您显示的绘图是

c（6,2）

。