Добавьте разные метки к вторичной оси X графика уровня в решетке в R

Мне удалось пометить вторичную ось X на графике уровня, используя scale=list((alternating=3)), решенную @KoenV здесь: Как добавить метки к верхней оси X Levelplot в пакете Lattice

Теперь это дублирует метки основной оси X на дополнительную ось X, как можно увидеть, запустив код ниже. Однако мне нужно добавить разные метки на вторичную ось X.

Кто-нибудь знает как это сделать?

В приведенном ниже примере я хотел бы иметь «hor» в качестве меток основной оси X и «hor2» в качестве меток вторичной оси X.

library(lattice)

#Build the horizontal and vertical axis information
hor <- c("214", "215", "216", "224", "211", "212", "213", "223", "226", "225")
hor2 <- paste("5", hor, sep="")
ver <- paste("DM1-", hor, sep="")

#Build the fake correlation matrix
nrowcol <- length(ver)
cor <- matrix(runif(nrowcol*nrowcol, min=0.4), nrow=nrowcol, ncol=nrowcol, dimnames = list(hor, ver))
for (i in 1:nrowcol) cor[i,i] = 1

#Build the plot
rgb.palette <- colorRampPalette(c("blue", "yellow"), space = "rgb")
levelplot(cor, main="stage 12-14 array correlation matrix", xlab="", ylab="", col.regions=rgb.palette(120), cuts=100, at=seq(0,1,0.01), scales=list(x=list(at=1:10, labels=hor, rot=90, alternating=3), y=list(at=1:10, labels=ver)))

Благодарю вас!