如何通过脚本将可视化图表保存为PNG并设置最大尺寸

现有一段用于生成弦图的R语言代码：

chord_data <- data %>%
  select(from, to = to, value = value) %>%
  as.data.frame()

tmp <- chordDiagram(chord_data, annotationTrack = "grid", 
                preAllocateTracks = list(track.height = max(strwidth(unlist(dimnames(chord_data))))))

circos.track(track.index = 1, 
               panel.fun = function(x, y) {
               circos.text(CELL_META$xcenter, 
                        CELL_META$ylim[1], 
                        CELL_META$sector.index, 
                        facing = "clockwise", 
                        niceFacing = TRUE, 
                        adj = c(0, 0.6), cex = 0.8)
            }, bg.border = NA) # here set bg.border to NA is important

如何通过脚本将上述可视化图表保存为PNG格式，并设置最大尺寸？

要将弦图保存为指定尺寸的PNG文件，需遵循「开启图形设备→绘制图表→关闭设备」的流程，具体操作如下：

• 开启PNG设备：用png()函数指定保存路径、文件名，以及宽高尺寸（单位默认像素）。若要设置「最大尺寸」，可根据需求设定足够大的数值，同时通过res参数调整分辨率保证清晰度。
• 执行绘图代码：把原有的弦图绘制代码放在png()和dev.off()之间。
• 关闭设备：调用dev.off()完成文件写入。

完整代码示例 #

# 开启PNG设备，设置尺寸与分辨率
png("chord_plot.png", width = 3000, height = 3000, res = 300)

# 弦图绘制代码
chord_data <- data %>%
  select(from, to = to, value = value) %>%
  as.data.frame()

tmp <- chordDiagram(chord_data, annotationTrack = "grid", 
                preAllocateTracks = list(track.height = max(strwidth(unlist(dimnames(chord_data))))))

circos.track(track.index = 1, 
               panel.fun = function(x, y) {
               circos.text(CELL_META$xcenter, 
                        CELL_META$ylim[1], 
                        CELL_META$sector.index, 
                        facing = "clockwise", 
                        niceFacing = TRUE, 
                        adj = c(0, 0.6), cex = 0.8)
            }, bg.border = NA) # here set bg.border to NA is important

# 关闭设备，完成保存
dev.off()

参数说明 #

• width/height：设置PNG的宽高，单位为像素，调整数值即可实现所需的「最大尺寸」；
• res：设置分辨率（dpi），数值越高图表越清晰，300dpi适用于高清展示或印刷场景；
• 必须严格遵循「开启设备→绘图→关闭设备」的顺序，否则无法生成PNG文件。

内容的提问来源于stack exchange，提问作者Sanda