更改格子图中条带上的文本

Question

如何更改格子图中显示的文本？ 例子： 假设我有一个由 3 列组成的数据框测试，

x
 [1]  1  2  3  4  5  6  7  8  9 10

y
 [1] "A" "A" "A" "A" "A" "B" "B" "B" "B" "B"

a
 [1] -1.9952066 -1.7292978 -0.8789127 -0.1322849 -0.1046782  0.4872866
 [7]  0.5199228  0.5626998  0.6392686  1.6604549

对格子图的正常调用

xyplot(a~x | y,data=test)

将在条带上显示带有文本“A”和“B”的图，

如何在条带上写入不同的文本？

尝试使用另一个字符向量

z
 [1] "a" "a" "a" "a" "a" "b" "b" "b" "b" "b"

并调用 strip.custom()

xyplot(a~x | y,data=test,strip=strip.custom(var.name=z))

不会给出所需的结果。

实际上这是一个国际化问题。

Answer 1

我认为你想要的可以通过以下方式获得：

z <-c( "a" , "b" ) # Same number of values as there are panels
xyplot(a~x | y,data=test,strip=strip.custom(factor.levels=z))

Answer 2

如果您将字符向量作为一个因素，那么您只需更改级别即可：

> xyplot(a~x | y,data=test)       # your plot
> test$y=as.factor(test$y)        # convert y to factor
> xyplot(a~x | y,data=test)       # should be identical
> levels(test$y)=c("Argh","Boo")  # change the level labels
> xyplot(a~x | y,data=test)       # new panel labels!

Answer 3

这是一个老问题，但我最近因为带状疱疹和因素而苦苦挣扎。以下是使用地震数据集的两种情况的示例。

library(lattice)
data(quakes)

作为带状疱疹，使用 strip = strip.custom(strip.names=FALSE, strip.levels=TRUE) 仅显示垃圾箱。使用 as.table = TRUE 对面板进行渐进排序。使用木瓦可将色条保留在条带中。

depth1 <- equal.count(quakes$depth, number = 8, overlap = 0)

xyplot(lat ~ long | depth1, 
       data = quakes,
       xlab = "Longtitude",
       ylab = "Latitude",
       aspect = 1,
       pch = 1,
       as.table = TRUE,
       strip = strip.custom(strip.names=FALSE, strip.levels=TRUE),
       )

作为一个因素，条带名称是自动的。

depth2 <- cut(quakes$depth, breaks=8)

xyplot(lat ~ long | depth2, 
       data = quakes,
       xlab = "Longtitude",
       ylab = "Latitude",
       aspect = 1,
       pch = 1,
       as.table = TRUE,
       )