无法从通过ggsave()生成的PNG中删除灰色背景

我一直在尝试将一个 flextable 保存为 ggplot,然后将其写入 PNG 进行网格化。

我一直在尝试将一个 flextable 保存为 ggplot,然后将其写入 PNG 进行网格化。

enter image description here

而 ggplot 的情节视图看起来像我想要的(但低 res):

enter image description here

这是我用来产生图像的代码(flexRPOPS 是一个可弯曲的对象):

 library(flextable); library(ggplot2); library(png); library(magick);library(webshot)
flexRPOPS_raster <- as_raster(flexRPOPS, zoom = 20, webshot="webshot")
    flexRPOPS_raster <- image_trim(flexRPOPS_raster, fuzz = 10)
    flexRPOPS_ggplotex <- ggplot() + annotation_custom(rasterGrob(flexRPOPS_raster), xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)
    flexRPOPS_compare_ex1 <- ggsave(filename = "deptovr_ex1.png", flexRPOPS_ggplotex, width = flexRPOPS_dims$widths, height = flexRPOPS_dims$heights, dpi = 600, units = "in", bg="#ffffff", device='png')
2

问题是,当你绘制一个空图时,默认的面板背景是浅灰色。这就是你所看到的,所以你需要将面板背景设置为空白 (或透明),那么它应该工作。这里有一个简单的例子rectGrobgrid给你的想法:

library(ggplot2)
library(grid)
p <- ggplot() + annotation_custom(grob=rectGrob(width=0.5, height=0.5))
p
ggsave('a_gray.png', bg='#ffffff')

enter image description here

使用theme(panel.background=element_blank())将面板背景设置为空白:

p + theme(panel.background = element_blank())
ggsave('a_white.png', bg='#ffffff')

enter image description here

或者,您可以设置theme.background = element_rect(fill=NA)

本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处

(999)
在 github中删除未使用的第三方选项卡
上一篇
Linux驱动编写:在Linux中编写acpi驱动程序
下一篇

相关推荐

发表评论

登录 后才能评论

评论列表(26条)