Wie Labels Top X-Achse von Levelplot in Lattice Package

Question

So hinzufügen Ich mache correlation-matrixartigen Plots levelplot ähnlich wie dies mit (aus: 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)) 

Ich mag würde Hinzufügen von Beschriftungen zu jedem der oberen (zweiten) X-Achsen-Ticks. Weiß jemand, wie man das erreicht?

Danke,

Kai

Answer 1

Sie können dies tun, indem scales=list(alternating=3) auf Ihren Anruf von levelplot

Hinzufügen Wenn Sie die Hilfe für levelplot nachschlagen, um einige Informationen, werden Sie zu xyplot bezeichnet (und andere). In der Hilfeseite xyplot finden Sie eine Beschreibung von scales und darin alternating. Alternating steuert die Lage der Zecke Etiketten und 4 Werte annehmen können:

• 0 (keine),
• 1 (unten/links),
• 2 (oben/links),
• 3 (beide).

Hier ist der Aufruf levelplot das gibt Ihnen auf allen Seiten Zecken:

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