Drehen obere Dreieck eines ggplot Fliese Heatmap

Question

ich eine Heatmap wie folgt aufgetragen haben:

ggplot(test, aes(start1, start2)) + 
    geom_tile(aes(fill = logFC), colour = "gray", size=0.05) + 
    scale_fill_gradientn(colours=c("#0000FF","white","#FF0000"), na.value="#DAD7D3") 

Dies zeichnet das obere Dreieck einer Heatmap. Was ich zeichnen möchte, ist das gleiche Dreieck, aber mit der Hypotenuse als x-axis.

Wie würde ich das tun?

---

Edit: Added reproduzierbares Beispiel

library(ggplot2) 

# dummy data 
df1 <- mtcars[, c("gear","carb", "mpg")] 

# normal tile plot 
gg1 <- ggplot(df1, aes(gear, carb, fill = mpg)) + 
    geom_tile() + 
    xlim(c(1, 10)) + 
    ylim(c(1, 10)) + 
    theme_void() + 
    theme(legend.position = "none") 

Erwartete Ausgabe (manuell gedreht):

Verwandte uns schreiben ing Grundstück image(): Visualising and rotating a matrix

Mögliche Lösung Beispielcode ist in LDheatmap packagegrid verwenden.

Answer 1

this solution Verwendung wird die Ausgabe am unteren Rand abgeschnitten, so würde Abhilfe zusätzliche Plot Seitenränder werden dann grid::viewport() verwenden drehen:

library(ggplot2) #ggplot2_2.2.1 
library(grid) 

gg1 <- ggplot(df1, aes(gear, carb, fill = mpg)) + 
    geom_tile() + 
    xlim(c(1, 10)) + 
    ylim(c(1, 10)) + 
    theme_void() + 
    # add extra margins 
    theme(legend.position = "none", 
     plot.margin = unit(c(1, 1, 1, 1), "cm")) 

# then rotate 
print(gg1, vp = viewport(angle = 45))