这是我试图修改的开始示例:
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)
)
此代码创建一个图:
但当我改变唯一的中点到midpoint = -0.5
情节看起来像:
在我看来,输出是不正确的,因为我清楚地说明了low = 'red'
,在图中,最低值的颜色介于红色和白色之间。
我正在寻找一种解决方案,如何保持midpoint = -0.5
和从-1(红色)到-0.5(白色)的完整渐变。
解决方案是here:
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)
)