Comment ajouter des étiquettes en haut de l'axe X de Levelplot dans le paquet treillis

Question

Je fais des parcelles comme la corrélation à matrice en utilisant levelplot similaire à celle (tirée de: Plot correlation matrix into a graph):

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)) 

Je voudrais ajouter des étiquettes à chacune des tiques supérieures (secondaires) de l'axe des x. Est ce que quelqu'un sait comment accomplir cela?

Merci,

Kai

Answer 1

Vous pouvez le faire en ajoutant scales=list(alternating=3) à votre appel de levelplot

Si vous regardez l'aide pour levelplot, pour certaines informations, vous êtes invités à consulter xyplot (et d'autres). Il est dans la page d'aide xyplot, vous trouverez une description de scales et alternating. Alternatif contrôle l'emplacement des étiquettes de graduation et peut prendre 4 valeurs:

• 0 (none),
• 1 (bas/gauche),
• 2 (haut/droite),
• 3 (tous les deux).

Voici l'appel à levelplot qui vous donne les tiques sur tous les côtés:

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))