Как добавить метки к верхней оси X графика уровня в пакете решетки

Question

Поэтому я делаю графики, подобные корреляционной матрице, используя график уровня, подобный следующему (взят из: График зависимости графика в график):

library(lattice)

#Build the horizontal and vertical axis information
hor <- c("214", "215", "216", "224", "211", "212", "213", "223", "226", "225")
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))

Я хотел бы добавить метки к каждому из верхних (вторых) тиков по оси X. Кто-нибудь знает, как этого добиться?

Спасибо,

Кай

Answer 1

Вы можете сделать это, добавив scales=list(alternating=3) на ваш зов levelplot

Если вы ищите помощь для levelplot, для получения некоторой информации, вас отсылают xyplot (и другие). Это в xyplot страница справки, вы найдете описание scales и в этом alternating, Поочередно контролирует расположение меток и может принимать 4 значения:

• 0 (никто),
• 1 (Нижний левый),
• 2 (в правом верхнем углу),
• 3 (и то и другое).

Вот вызов уровня, который дает вам галочки со всех сторон:

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(alternating=3))