R:如何更改 R 的格子 xyplot 中 strip 的文本

Question

我正在尝试使用函数直方图来绘制某些数据的密度。数据格式示例如下:

   library(lattice)
   index<-c(1,1,1,2,2,2,2)
   freq<-c(3,4,6,3,6,2,2)
   D<-data.frame(index,freq)
   histogram(~D$freq|D$index)

我想将索引号打印为每个直方图的 strip 文本(即在本例中，分别在直方图顶部显示 1 和 2，而不是当前打印的 D$index)，但是我不知道一个简单的方法来做到这一点(我知道我可能必须使用 strip.custom()，并正确更改 var.name，但我不知道如何根据我的索引)

Answer 1

如果您将索引变量更改为一个因子，您将获得默认行为，即在 strip 中打印木瓦级别:

library(lattice)
    index<-factor(c(1,1,1,2,2,2,2))
    freq<-c(3,4,6,3,6,2,2)
    D<-data.frame(index,freq)
    histogram(~D$freq|D$index)

只是为了好玩，您可以在 strip.default 中使用样式变量:

histogram(~freq|index, data=D, strip = 
      function(..., style){ strip.default(..., style = 4)}  )