R 缩放\填充\渐变2中的不对称中点会在较短的边上产生修剪过的颜色

下面是我试图修改的开始示例：

library(reshape2)

data <- mtcars[, c(1,3,4,5,6,7)]
cormat <- round(cor(data),2)
melted_cormat <- melt(cormat, na.rm = TRUE)

ggplot(
  data = melted_cormat,
  aes(Var1, Var2, fill=value)
) +
  geom_tile() +
  geom_text(
    aes(Var2, Var1, label = value)
  ) +
  scale_fill_gradient2(
    low = 'red',
    high = 'blue',
    mid = 'white', 
    midpoint = 0, # <-- look at this
    limit = c(-1, 1)
  ) 

此代码创建一个绘图：

但当我将唯一中点更改为中点=-0.5时，绘图如下所示：

在我看来，输出是不正确的，因为我清楚地说明了low=‘红色’，并且在绘图中，最低值的颜色介于红色和白色之间

我正在寻找一个解决方案，如何保持中点=-0.5和从-1红色到-0.5白色的完整渐变。

给出了解决方案：

给出了解决方案：

---

伟大的现在我知道这在比例填充梯度n中是可能的，但我仍在研究为什么当比例填充梯度2的中点不对称时，高和低会如此混乱。@Everettss OK。我理解。scale_fill_gradient2函数使用scales包的重缩放器rescale_mid。我想了解它的工作原理可能会很有趣：重新缩放midseq-1,1，length.out=11，c0,1，c-1,1,0和重新缩放midseq-1,1，length.out=11，c0,1，c-1,1，-0.5。另请参见：缩放：：：重新缩放\u mid.numeric太棒了！现在我知道这在比例填充梯度n中是可能的，但我仍在研究为什么当比例填充梯度2的中点不对称时，高和低会如此混乱。@Everettss OK。我理解。scale_fill_gradient2函数使用scales包的重缩放器rescale_mid。我想了解它的工作原理可能会很有趣：重新缩放midseq-1,1，length.out=11，c0,1，c-1,1,0和重新缩放midseq-1,1，length.out=11，c0,1，c-1,1，-0.5。另请参见：缩放：：：重新缩放\u mid.numeric

library(reshape2)
library(scales)
data <- mtcars[, c(1,3,4,5,6,7)]
cormat <- round(cor(data),2)
melted_cormat <- melt(cormat, na.rm = TRUE)

ggplot(
  data = melted_cormat,
  aes(Var1, Var2, fill=value)
) +
  geom_tile() +
  geom_text(
    aes(Var2, Var1, label = value)
  ) +
  scale_fill_gradientn(
   colors=c("red","white","blue"),
   values=rescale(c(-1,-0.5,1)),
   limits=c(-1,1)
  )