如何添加標籤Levelplot的頂部x軸格子包

Question

所以我正在使用levelplot類似這樣的相關性矩陣狀圖（摘自：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)) 

我想爲每個頂部（第二個）x軸刻度添加標籤。有誰知道如何做到這一點？

謝謝

凱

Answer 1

您可以通過添加scales=list(alternating=3)您的levelplot

電話如果你查查幫助levelplot，一些信息，你被稱爲xyplot做到這一點（和別的）。它在xyplot幫助頁面中，您可以找到scales的描述，其中有alternating。交替控制刻度標記的位置，並可以取4個值：

• 0（無），
• 1（底/左）
• 2（頂部/右），
• 3（都）。

這裏是調用levelplot，讓您在蜱四面八方：

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