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

Question

我正在尝试heatmap使用ggplot's 生成一个情节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.

默认值ratio = 1,确保x轴上的一个单位与y轴上的一个单位的长度相同

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

Answer 2

调整比例如下

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)
p <- ggplot(df,aes(y=gene,x=cell,fill=val))+geom_tile(color="white")
p <- p + coord_fixed(ratio = 0.7)
p