相同代码，R语言导出png显示空白

代码如下。第一张Freq_Words正常，但是第二张Freq_Genepng空白，而且plot不出图

png("Freq_Words.png")
pic <- ggdotchart(abswords[1:20,], 
           x = "words", y = "Freq",
           color = "#A52A2A",
           sorting = "descending",
           add = "segments",
           ggtheme = theme_pubr(),
           rotate = TRUE
           )
print(pic)
dev.off()

png("Freq_Gene.png")
pic_gene <- ggdotchart(absgene[1:15, ], 
                  x = "Gene_symbol", y = "Freq",
                  color = "#00AFBB",
                  sorting = "descending",
                  add = "segments",
                  ggtheme = theme_pubr(),
                  rotate = TRUE
                  )
print(pic_gene)
dev.off()

引用 皆我百晓生 小程序回复内容作答：
对于第二张图 Freq_Gene.png 显示为空白的问题，可能是由于以下原因之一：

1. 数据源 absgene 中的数据为空或缺失。请确保 absgene 中的数据有效，并打印数据进行检查。

2. 图表设置或参数不正确。请仔细检查 ggdotchart 中的图表设置，确保 x 轴和 y 轴的变量与 absgene 中的数据对应，并且设置和样式符合你的需求。

3. 图表尺寸不适合导出为 PNG。你可以尝试调整 ggdotchart 函数中的图表尺寸参数，如 width 和 height，或者使用其他尺寸适合的导出格式。

建议你逐步排查这些可能的原因，并对每个步骤进行逐一调试和测试，以确定问题的根本原因所在。

你把代码文件发给我