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

Necesito generar gráficos ggplot2 de archivos R a PNG con fondo transparente. Todo está bien con gráficos R básicos, pero no hay 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 forma de obtener un fondo transparente con ggplot2?

Actualizado con la theme()función 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
  ) 

La forma más rápida es usar usando rect, ya que todos los elementos rectangulares heredan de rect:

p <- p +
  theme(
        rect = element_rect(fill = "transparent") # all rectangles
      )
    p

La forma más controlada es usar opciones de theme:

p <- p +
  theme(
    panel.background = element_rect(fill = "transparent"), # bg of the panel
    plot.background = element_rect(fill = "transparent", color = NA), # 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

Para guardar (este último paso es importante):

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

También hay una plot.backgroundopción 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 se muestra de manera diferente que en mi computadora, por lo que la he omitido. Pero para mí, obtengo una trama con un fondo completamente gris, excepto por la parte de la caja de la trama de la caja que todavía es blanca. Creo que eso también se puede cambiar usando la estética de relleno en el boxplot geom.

Editar

Desde entonces, ggplot2 ha sido actualizado y la opts()función ha quedado en desuso. Actualmente, usaría en theme()lugar de opts()y en element_rect()lugar de theme_rect(), etc.

Solo para mejorar la respuesta de YCR:

1) Agregué líneas negras en los ejes x e y. De lo contrario, también se hacen transparentes.

2) Agregué un tema transparente a la clave de la leyenda. De lo contrario, obtendrá un relleno allí, que no será muy estético.

Finalmente, tenga en cuenta que todos esos funcionan solo con formatos pdf y png. JPEG no produce gráficos transparentes.

MyTheme_transparent <- theme(
    panel.background = element_rect(fill = "transparent"), # bg of the panel
    plot.background = element_rect(fill = "transparent", color = NA), # 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
    legend.key = element_rect(fill = "transparent", colour = NA), # get rid of key legend fill, and of the surrounding
    axis.line = element_line(colour = "black") # adding a black line for x and y axis
)