r - 在 R 中创建一个函数，使所有 ggplot 组件更加透明

Question

我正在寻找一个使我的 ggplot 图更透明的函数。自定义一个新主题我认为这并不是很好，因为正如自己的文档所说，“使用 theme() 来修改主题的各个组件，允许您控制所有的外观非数据组件 的情节。

假设我们有这个简单的图形:

ggplot(economics) +
  aes(unemploy, psavert) +
  geom_point() +
  geom_smooth(se = F) +
  ggtitle('Unemploy vs Personal Savings Rate')

它将呈现如下:



我的想法是构建一个函数来修改所有元素，并以某种比例使它们更加透明，如下所示:

make.invisible <- function(graph, alpha=.75){
  graph +
    # Change all elements
}

ggplot2可以吗？

Answer 1

尝试这个，

print(p, vp=viewport(gp=gpar(alpha=0.3)))