使用scale_colour_gradient自定义ggplot热图中的颜色

Question

I'm trying to plot a Pearson pairwise correlation heatmap using ggplot2 and scale_colour_gradient .

Here are my example data:

library(dplyr)
library(ggplot2)
set.seed(1)

pairs.mat <- t(combn(1:5,2))
df <- data.frame(sample1=pairs.mat[,1],sample2=pairs.mat[,2]) %>% dplyr::mutate(association=runif(10,0.85,1))

Here's the ggplot2 code I'm trying:

heatmap.ggplot <- ggplot(df,aes(sample1,sample2,fill=association))+geom_tile(color="white")+
  scale_colour_gradient(low="gray",high="red",limit=c(min(df$association),1),space="Lab",guide="colourbar")+theme_minimal()+
  theme(axis.title.x=element_blank(),axis.title.y=element_blank(),axis.text.x=element_text(angle=45,vjust=1,size=12,hjust=1))+coord_fixed()+coord_flip()+labs(colors="Cor")

which produces:

My questions are:

1. I specify the range to be low="gray" and high="red" but I'm getting the elements in the blue range. How do I fix that?
2. I can't seem to change the legend title using the labs(colors="Cor") . Any idea about that?

Thanks

Answer 1

You need scale_fill_gradient .

ggplot(df, aes(sample1, sample2, fill = association)) +
  geom_tile(color = "white") +
  scale_fill_gradient(
    name = "Cor", # changes legend title
    low = "gray",
    high = "red",
    limit = c(min(df$association), 1),
    space = "Lab",
    guide = "colourbar"
  ) + theme_minimal() +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    axis.text.x = element_text(
      angle = 45,
      vjust = 1,
      size = 12,
      hjust = 1
    )
  ) + 
coord_fixed() + 
coord_flip()