代码如下。第一张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()