r - 关于过热包中的 ggsave

Question

我想知道如何在 superheat 包中使用 ggsave。
ggsave 不起作用......

# install devtools
install.packages("devtools")
# use devtools to install superheat
devtools::install_github("rlbarter/superheat")

library(superheat)
superheat(mtcars,
          # scale the matrix columns
          scale = TRUE,
          # change the color
          heat.col.scheme = "red")

g1<-superheat(mtcars,
          # scale the matrix columns
          scale = TRUE,
          # change the color
          heat.col.scheme = "red")

ggsave(file = "heat.tiff", plot =g1, width =6, height = 4)

Answer 1

运行问题中的代码后，我试图查看 superheat 返回的对象是什么| .

这是一个包含 7 个成员的列表。 str(g1)的输出太长所以先检查它的长度:

length(g1)
#[1] 7

现在看看这些列表成员中的每一个都有什么。

g1[[1]]
#TableGrob (4 x 2) "layout": 1 grobs
#  z     cells  name                     grob
#1 1 (1-1,2-2) panel gTree[panel-1.gTree.303]

g1[[2]]
#TableGrob (6 x 4) "layout": 4 grobs
#  z     cells   name                     grob
#1 1 (2-2,3-3)  panel gTree[panel-1.gTree.303]
#2 2 (5-5,3-3) layout           gtable[layout]
#3 3 (2-2,2-2) layout           gtable[layout]
#4 4 (3-3,3-3) layout           gtable[layout]

第二个看起来很有希望，尝试保存它。 (实际上我也保存了 g1[[1]] ，它是没有轴的热图。)
请注意，经过反复试验，我决定增加绘图的宽度和高度。对于问题中的值，轴注释不可读。

ggplot2::ggsave(file = "heat.tiff", plot = g1[[2]], 
                width = 12, height = 10)

最后一点。 图中的图形是 .png文件， .tiff文件显示完全相同的图片。