在 r、ggplot2、lattice 或latticeExtra 中创建更连续的调色板

Question

警告...非常新手的问题如下：

我试图绘制数千个（X，Y）点的相当规则的分布，每个点与一个值相关联，我们称之为Z，它在-20到+之间变化非常不规则20.我对平滑不感兴趣；我希望 Z 点值根据平滑变化的调色板进行绘制，就像 Gnuplot 使用适当的平滑调色板所做的那样。我已经尝试过base R、ggplot2和latticeExtra，并且尽我所能，我可以想出以下几乎可以满足我想要的功能：

library(lattice)
library(latticeExtra)
library(colorRamps)
df = read.table(file"whatever", header=T)
levelplot(Z~X*Y, df, panel=panel.levelplot.points, cex=0.2,
   col.regions=colorRampPalette(c("red","white","blue"))(50))

一个数据点看起来像：1302525 225167 -3.5

当我用“绘制我的数据框时50" 在最后一个代码行中作为 3，我得到了红色、白色和蓝色的可预测 R 回收行为，重复五次，第 16 个颜色条段为白色。将 3 更改为 7 会导致更多的红色和蓝色色调，从而创建 2 个重复颜色范围段，并在颜色范围尝试回收时留下两种微红色。这表明增大该数字会导致颜色分级更精细。但如果我输入的数字大于 16，这就是我得到的全部，16 个彩色段，从红色、白色、蓝色均匀变化。但我希望色阶更精细，并且在完美的世界中，强制 Z 为零为白色。

到目前为止，我使用 R 的经验是，当我无法完成像这样简单的事情时，我错过了一个非常基本的概念。它是什么？

Answer 1

就晶格而言，您可以使用 RColorBrewer< 设置调色板/a> （甚至颜色空间）。使用 @Chase 提供的示例，但 z 为正值：

dat <- data.frame(x = rnorm(1000), y = rnorm(1000), z = sample(0:40, 1000, TRUE))
library(RColorBrewer)
# see, e.g.
# display.brewer.all(9, type="seq")
# display.brewer.pal(11, "RdBu")
my.col <- colorRampPalette(brewer.pal(11, "RdBu"))(diff(range(dat$z)))
xyplot(y ~ x, data=dat, col=my.col[dat$z], pch=19, alpha=.5)

请注意，这里还需要通过插值来增加可用颜色的范围。另外，使用 levelplot() 时，您可能想使用 cut= 和 pretty=。

Answer 2

你看过ggplot中的scale_gradient吗？或者用于离散颜色的 scale_brewer ？这是 scale_gradient 的示例

dat <- data.frame(x = rnorm(1000), y = rnorm(1000), z = sample(-20:20, 1000, TRUE))

p <- ggplot(dat, aes(x, y, colour = z)) + geom_point() 
p + scale_colour_gradient()
p + scale_colour_gradient(low = "red", high = "blue")
p + scale_colour_gradient2(low = "red", mid = "white", high = "blue")

Answer 3

您缺少的“概念”是 levelplot() 的 at 参数，它定义颜色级别和/或轮廓线之间的断点。默认值是pretty(z)，它只产生几个级别。您可以将 at 设置为涵盖所需值范围的序列。

library(latticeExtra)

dat <- data.frame(x = rnorm(1000), y = rnorm(1000), z = rnorm(1000, mean = 1))
## for centering the colour key around zero
maxz <- max(abs(dat$z))

levelplot(z ~ x * y, dat, at = seq(-maxz, maxz, length = 100), 
    panel = panel.levelplot.points, par.settings = custom.theme.2())