¿Cómo hacer gráficos con fondo transparente en R usando ggplot2?

Question

Necesito imprimir gráficos ggplot2 de R a archivos PNG con fondo transparente. Todo está bien con los gráficos básicos R, pero sin transparencia con ggplot2:

d <- rnorm(100) #generating random data 

#this returns transparent png 
png('tr_tst1.png',width=300,height=300,units="px",bg = "transparent") 
boxplot(d) 
dev.off() 

df <- data.frame(y=d,x=1) 
p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) 
p <- p + opts(
    panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank() 
    panel.grid.minor = theme_blank(), 
    panel.grid.major = theme_blank() 
) 
#returns white background 
png('tr_tst2.png',width=300,height=300,units="px",bg = "transparent") 
p 
dev.off() 

¿Hay alguna manera de obtener fondo transparente con ggplot2?

Answer 1

También hay una opción de plot.background además de panel.background:

df <- data.frame(y=d,x=1) 
p <- ggplot(df) + stat_boxplot(aes(x = x,y=y)) 
p <- p + opts(
    panel.background = theme_rect(fill = "transparent",colour = NA), # or theme_blank() 
    panel.grid.minor = theme_blank(), 
    panel.grid.major = theme_blank(), 
    plot.background = theme_rect(fill = "transparent",colour = NA) 
) 
#returns white background 
png('tr_tst2.png',width=300,height=300,units="px",bg = "transparent") 
print(p) 
dev.off() 

Por alguna razón, la imagen cargada está mostrando de manera diferente que en mi equipo, así que he omitido él. Pero para mí, obtengo una trama con un fondo completamente gris a excepción de la parte de la caja de la gráfica de caja que todavía es blanca. Eso también se puede cambiar usando la estética de relleno en el Geom de Gráfica de caja, creo.

Editar

ggplot2 ya se ha actualizado y la función opts() ya no se utiliza. Actualmente, se utiliza en lugar de theme()opts() y element_rect() en lugar de theme_rect(), etc.

Answer 2

Actualizado con la función theme(), ggsave() y el código para el fondo de la leyenda:

df <- data.frame(y = d, x = 1, group = rep(c("gr1", "gr2"), 50)) 
p <- ggplot(df) + 
    stat_boxplot(aes(x = x, y = y, color = group) 
    , fill = "transparent" # for the inside of the boxplot 
) 

p <- p + 
    theme(
    panel.background = element_rect(fill = "transparent") # bg of the panel 
    , plot.background = element_rect(fill = "transparent") # bg of the plot 
    , panel.grid.major = element_blank() # get rid of major grid 
    , panel.grid.minor = element_blank() # get rid of minor grid 
    , legend.background = element_rect(fill = "transparent") # get rid of legend bg 
    , legend.box.background = element_rect(fill = "transparent") # get rid of legend panel bg 
) 
p 

o el uso de rect, ya que toda la elementos rectángulo heredan de rect:

p <- p + 
    theme(
    rect = element_rect(fill = "transparent") # bg of the panel 
) 
p 

ggsave(p, filename = "tr_tst2.png", bg = "transparent")