r - ggplot2正负值不同颜色渐变

Question

我正在使用 R (3.0.1) 和 ggplot2 (0.9.3.1)。我有包含正值和负值的数据，我想获得一个 geom_tile 图，其中正数和负数有不同的色阶渐变(例如，正数从红色变为黄色，负数从蓝色变为青色)。我可以使用 scale_fill_gradientn(见下文)来达到我想要的效果，但这会导致一个连续渐变，在中点 (0) 处包含“白色”颜色。我需要避免这些中点颜色，因此需要以某种方式将渐变“打破”为零。换句话说，我需要两个连续梯度(一个用于正值，一个用于负值)在零处具有离散中断。有什么帮助吗？

dat <- data.frame(Row = rep(x = LETTERS[1:5], times = 10)
 , Col = rep(x = LETTERS[1:10], each = 5)
 , Y = runif(n = 50, min = -1, max = 1))

p <- ggplot(data =  dat, aes(x = Row, y = Col)) + 
  geom_tile(aes(fill = Y)) +
  scale_fill_gradientn(colours=c("blue","cyan","white", "yellow","red"), values=rescale(c(-1,0,1)))

Answer 1

使青色和黄色之间的范围非常小:

ggplot(data =  dat, aes(x = Row, y = Col)) + 
  geom_tile(aes(fill = Y)) +
  scale_fill_gradientn(colours=c("blue","cyan","white", "yellow","red"), 
    values=rescale(c(-1,0-.Machine$double.eps,0,0+.Machine$double.eps,1)))

该指南中没有物理中断，但颜色映射如您所描述。