如何将使用 ComplexHeatmap 包创建的热图保存为 png 格式？

Question

我使用 R 中的 ComplexHeatmap 包制作了一张热图。我想将地图保存在我的电脑上并运行以下代码：

df <- read.csv("/home/aahm/filename.csv")
View(df)

df1<- t(df[,2:ncol(df)])
colnames(df1) <- df[,1]
View (df1)
df2 <- scale(df1)

library(ComplexHeatmap)
library(RColorBrewer)
library(circlize)
mycols <- colorRamp2(breaks = c(0, 0.2, 0.4, 0.6, 1.0), 
                     colors = c('white', "green", "red", "magenta", "blue"))

png(file="/home/aahm/Desktop/filename_heatmap.png")
Heatmap(df1, width = unit(15, "cm"),
        name = "nucleotide diversity scores",
        row_names_gp = gpar(fontsize = 7), column_title = "Nucleotide Positions", row_title = '1000 Genomes populations',
        column_title_side = "bottom",
        col = mycols,
        show_column_dend = FALSE, cluster_rows = FALSE,
        column_order = order(as.numeric(gsub("column", "", colnames(df1)))),
        column_names_rot = 45,
)
dev.off()

在我的桌面上创建了一个扩展名为 .png 的空文本文件，而不是带有地图的 png 文件。有人可以帮我找出我的代码有什么问题吗？

Answer 1

代码的顺序应该是这样的

png("test.png",width=3.25,height=3.25,units="in",res=1200)

您的热图代码

dev.off()

更新

保存所需的尺寸。您需要尝试最适合您的分辨率。

png("test.png",width=3.25,height=3.25,units="in",res=1200)