r - +r +ggplot +jpeg +背景 +透明

Question

我正在尝试创建具有透明背景的绘图的 jpeg。我想在 powerpoint 中使用 jpeg。我无法让透明度发挥作用。当我将 jpeg 插入到 ppt 中时，它仍然是白色背景。是否有我遗漏的选项？

library(tidyverse)
library(dplyr)
library(gridExtra)

df<-data.frame(x=1:5)
df$y<-df$x**2

pl<-ggplot(df,aes(x=x,y=x)) +
     geom_point()
pl

pl_for_jpeg<-pl+
   theme(axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks = element_blank(),
        plot.margin = unit(c(0,0,0,0),'mm'),
        panel.background = element_rect(fill = "transparent", color=NA),
        panel.grid.major = element_blank(),
        plot.background =  element_rect(fill = "transparent", color=NA),
        
   )

pl_for_jpeg

ggsave("pl.jpeg",pl_for_jpeg,width=10, height = 7.5, units = "in",bg = "transparent")

Answer 1

这应该是答案:

ggsave("pl.png",pl_for_jpeg,width=10, height = 7.5, units = "in",bg = "transparent")

例如，只需将扩展名更改为 png 瞧!您将在 ppt 上看到具有透明背景的图形。