在R中创建一个函数,使所有ggplot组件更透明

Question

我正在寻找一个使我的ggplot图更透明的功能.定制一个新主题我认为这并不是一件好事,因为正如自己的文档所说,'使用主题()来修改主题的各个组件,允许您控制绘图的所有非数据组件的外观.

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

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)))