使用scale_colour_gradient自定義ggplot熱圖中的顏色

Question

我正在嘗試使用ggplot2和scale_colour_gradient繪制皮爾遜成對相關heatmap 。

這是我的示例數據：

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))

這是我正在嘗試的ggplot2代碼：

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")

產生：

我的問題是：

1. 我將范圍指定為low="gray"和high="red"但是我將元素設置為藍色范圍。 我該如何解決？
2. 我似乎無法使用labs(colors="Cor")更改圖例標題。 有什么想法嗎？

謝謝

Answer 1

您需要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()