Getom_tile zum Zeichnen von quadratischen anstelle von rechteckigen Zellen

Question

Ich versuche, einen heatmap Plot mit ggplot 's geom_tile zu generieren. Meine Daten haben weit mehr Zeilen als Spalten.

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

Running:

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

produziert:

Wie erhalte ich die heatmap Zellen von symmetrischen Dimensionen zu sein - Quadrate statt Rechtecke (height = Breite)? ohne die Dimensionen der Figur zu verzerren.

Answer 1

Tweak das Verhältnis wie folgt

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 

Answer 2

Eine Option ist coord_equal hinzuzufügen.

Die Standardeinstellung Verhältnis = 1 ist, stellt sicher, dass eine Einheit auf der x-Achse ist die gleiche Länge wie eine Einheit auf der y-Achse

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