将图例添加到水平图

Adding Legends to Level Plots

我正在尝试在 R 中制作“水平图”,我正在按照此处的说明进行操作:https://www.rdocumentation.org/packages/lattice/versions/0.10-10/topics/levelplot

library(lattice)
x <- seq(pi/4, 5 * pi, length = 100)
y <- seq(pi/4, 5 * pi, length = 100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
grid <- expand.grid(x=x, y=y)
grid$z <- cos(r^2) * exp(-r/(pi^3))
levelplot(z~x*y, grid, cuts = 50, scales=list(log="e"), xlab="",
          ylab="", main="Weird Function", sub="with log scales",
          colorkey = FALSE, region = TRUE)

有什么办法可以给这个情节加个图例吗? “rdocumentation”中似乎没有任何关于图例选项的指示。

我在这里找到了一个类似的 post,显示了如何添加图例:

但这似乎是一种添加图例的复杂方法。

难道真的没有简单的方法可以给这个关卡剧情加上图例吗?

您只需分配 colorkey = TRUE:

levelplot(z~x*y, grid, cuts = 50, scales=list(log="e"), xlab="",
          ylab="", main="Weird Function", sub="with log scales",
          colorkey = TRUE, region = TRUE)