R - gprplot의 rastergrob 배경에 투명도 추가

Question

ggplot 배경으로 사용되는 rastergrob 객체에 투명도를 추가하고 싶습니다.

여기에 내 코드

library(ggplot2) 
library(grid) 
library(ggthemes) 

reds <- c("brown", "red","orange","green","orange","red","brown","grey") 
g <- rasterGrob(reds, width = unit(1, "npc"), height = unit(1,"npc"),interpolate = TRUE) 
p <- ggplot(data = economics, aes(x = date, y = unemploy)) + 
    annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)+ 
    geom_line(alpha=1, color = "white", size = 0.5) + 
    xlab("Years") + ylab("Unemployed [thousands]") + 
    theme_base() + 
    theme(panel.background=element_blank(), 
     plot.background=element_blank(),   
     line = element_line(colour="white")) + 
    theme() 

grid.newpage() 

print(p, newpage = FALSE) 

내가 annotation_custom에서 둘의 rastergrob에 알파를 추가 할 수 있습니다. 나는 잠시 동안 찾고 있었다.

Answer 1

scales::alpha()의 목록을 투명 "알파"그리고 색상의 목록의 매개 변수를 사용하고 반환 함수 가지 AdjustColor()를 사용하는 것입니다 할 수있는 하나의 가능한 방법을 하나 개의 옵션입니다 발견 ,

grid.newpage() 
grid.text("background") 

reds <- c("brown", "red","orange","green","orange","red","brown","grey") 
grid.raster(scales::alpha(reds, 0.5), width = unit(1, "npc"), height = unit(1,"npc"),interpolate = TRUE) 

Answer 2

이 나는 ​​투명 색상