r - scale_gradientn 中的陡峭梯度

Question

在 R 中使用 ggplot2，我可以获得如下所示的离散色标:

这可以生成，如here所示.

然而，它看起来并不好。我想删除级别之间的间距，我想也许我可以切换到连续色标，使用 scale_gradientn() 并在不同颜色之间设置非常陡峭的渐变。这样我就可以使用连续的色标，它在正确的位置有标签并且看起来很棒，而不是离散的色标。

但是，这是我能想到的最好的办法:

library(ggplot2)
ggplot(faithfuld, aes(waiting, eruptions)) +
  geom_raster(aes(fill = density)) +
  scale_fill_gradientn(
    colours = c("red", "green", "blue", "yellow"), 
    values=c(0, 0.25, 0.25001, 0.5, 0.5001, 0.75, 0.75001,1)
  )

这显然不够好，因为在 4 个级别之间可以看到明显的颜色偏移。

在 ggplot2 中这可能吗？

Answer 1

只需使用离散比例:

library(ggplot2)
faithfuld$classes <- cut(faithfuld$density, c(-Inf, 0.01, 0.02, 0.03, Inf))
ggplot(faithfuld, aes(waiting, eruptions)) +
  geom_raster(aes(fill = classes)) +
  scale_fill_manual(name = "density",
                    values = c("red", "green", "blue", "yellow"),
                    labels = c(0.01, 0.02, 0.03, "")) +
  guides(fill = guide_legend(label.vjust = -0.2))