将水平图上的数字刻度线更改为字母

Question

我正在研究我的地块的一些细节，但我发现了一个我无法绕过的细节。我的关卡上有数字刻度线。现在我希望 y 轴上的刻度线更改为相应的字母。 （即1 = A，5 = E，27 = AA，29 = AC，...）

我已经使用过

scales=list(
    y=list(alternating=3,labels=toupper(c(letters[1],letters[5],letters[10],letters[15])))))

但我希望它们根据Y轴上的内容而不是我给出的值进行更改。 有人可以帮我解决这个问题吗？

levelplot(volcano,main="levelplot(volcano)")

Answer 1

不是通用解决方案。使用pretty自行计算at。

y_at <- pretty(seq_len(ncol(volcano)))
y_labels <- c(LETTERS, outer(LETTERS, LETTERS, paste, sep=""))
levelplot(
    volcano, main="levelplot(volcano)",
    scales=list(y=list(
        alternating=3,
        labels=y_labels[round(y_at)],
        at=y_at
    ))
)

Answer 2

关于聊天的一些讨论表明 levelplot() 可以很好地处理热图情况（其中一个或两个变量是离散/分类的）。因此，我们只需要将数据转换为正确的格式即可。一种方法是至少将 y 坐标存储为具有适当级别设置的因子。

首先，沿着OP的数据模拟一些数据：

yholes <- c(LETTERS, sort(outer(LETTERS, LETTERS, paste, sep="")))[1:30]
xholes <- seq_along(yholes)
g <- expand.grid(X = xholes, Y = yholes)
set.seed(2)
dat <- with(g, data.frame(Y = factor(Y, levels = yholes), 
                          X = X, 
                          vals = runif(900)))

这给出了：

R> head(dat)
  Y X      vals
1 A 1 0.1848823
2 A 2 0.7023740
3 A 3 0.5733263
4 A 4 0.1680519
5 A 5 0.9438393
6 A 6 0.9434750

expand.grid() 调用的原因是 levelplot()，当通过我即将使用的公式方法需要每个数据点（在本例中为 900 个）有一个 Y 和一个 X。

然后，可以通过 levelplot() 中的简单公式轻松生成该图：

require(lattice)
levelplot(vals ~ X + Y, data = dat)

生成以下内容：