ggplot缩放颜色渐变到数据范围之外的范围

时间:2012-12-15 00:42:46

标签: r colors ggplot2 data-visualization

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

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

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)

graham jeffries ggplot scale fill example

但是当我将断点更改为观察范围之外的值时,渐变着色似乎不会调整,并且渐变标签不会出现。

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

graham jeffries ggplot scale fill example 2

1 个答案:

答案 0 :(得分:48)

记住在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轴的范围,通常会更改“限制”之类的设置。