r - ggplot 将颜色渐变缩放到数据范围之外

Question

我正在寻找一种方法来拉伸两个值之间的颜色渐变并标记图例，而不管数据集中的数据值范围如何。本质上，是否有与ylim() 颜色渐变等效的功能？

给定通常在 -1 和 1 之间绘制 az 值的代码，如果中断在数据范围内，我可以绘制和标记渐变：

library(ggplot2)

#generator from http://docs.ggplot2.org/current/geom_tile.html
pp <- function (n, r = 4) { 
  x <- seq(-r * pi, r * pi, len = n)
  df <- expand.grid(x = x, y = x)
  df$r <- sqrt(df$x^2 + df$y^2)
  df$z <- cos(df$r^2) * exp(-df$r / 6)
  return(df)
}

t <- pp(30)
summary(t)
b <- c(-.5, 0, .5)
colors <- c('navyblue', 'darkmagenta', 'darkorange1')
p <- ggplot(data = t, aes(x = x, y = y))+
  geom_tile(aes(fill = z))+
  scale_fill_gradientn(colors = colors, breaks = b, labels = format(b))
ggsave(plot = p, filename = <somefile.png>, height = 3, width = 4)

但是当我将中断更改为观察范围之外的值时，渐变颜色似乎没有调整，渐变标签也没有出现。

b <- c(-3, 0, 3)

Answer 1

重要的是要记住，在 ggplot 中，breaks基本上永远不会改变比例本身。它只会更改指南或图例中显示的内容。

您应该改为更改比例的限制：

ggplot(data=t, aes(x=x, y=y)) +
  geom_tile(aes(fill=z)) +
  scale_fill_gradientn(limits = c(-3,3),
  colours=c("navyblue", "darkmagenta", "darkorange1"),
  breaks=b, labels=format(b))

现在，如果您希望图例中出现的中断进一步扩展，您可以更改它们以设置刻度线出现的位置。

要记住的一个很好的类比始终是常规的 x 和 y 轴。在那里设置“中断”只会改变刻度线出现的位置。如果要更改 x 或 y 轴的范围，通常会更改设置，例如它们的“限制”。