r - 让 geom_tile 绘制正方形而不是矩形单元格

Question

我正在尝试生成 heatmap使用 ggplot 绘图的 geom_tile .我的数据的行数远多于列数。

  set.seed(1)
  df <- data.frame(val=rnorm(100),gene=rep(letters[1:20],5),cell=c(sapply(LETTERS[1:5],function(l) rep(l,20))))

运行:

library(ggplot2)
ggplot(df,aes(y=gene,x=cell,fill=val))+geom_tile(color="white")

产生:


我如何获得 heatmap单元格具有对称尺寸 - 正方形而不是矩形(高度 = 宽度)？不扭曲图形的尺寸。

Answer 1

一个选项是添加 coord_equal .

The default, ratio = 1, ensures that one unit on the x-axis is the same length as one unit on the y-axis

ggplot(df, aes(y = gene, x = cell, fill = val)) +
  geom_tile(color = "white") +
  coord_equal()