Comment faire des graphiques avec un fond transparent dans R en utilisant ggplot2 ?

Question

J'ai besoin de sortir des graphiques ggplot2 de R vers des fichiers PNG avec un fond transparent. Tout est ok avec les graphiques de base de R, mais pas de transparence avec 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()

Existe-t-il un moyen d'obtenir un fond transparent avec ggplot2 ?

Answer 1

Mis à jour avec le theme() fonction, ggsave() et le code pour le fond de la légende :

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
  ) 

Le moyen le plus rapide est d'utiliser rect car tous les éléments du rectangle héritent de rect :

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

Une manière plus contrôlée est d'utiliser les options 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

Pour sauvegarder (cette dernière étape est importante) :

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

Answer 2

Il existe également un plot.background en plus de l'option 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()

Pour une raison quelconque, l'image téléchargée ne s'affiche pas de la même manière que sur mon ordinateur, je l'ai donc omise. Mais pour moi, j'obtiens un tracé avec un fond entièrement gris, sauf pour la partie boîte du boxplot qui est toujours blanche. Cela peut être changé en utilisant l'esthétique de remplissage dans le géomètre boxplot aussi, je crois.

Modifier

ggplot2 a depuis été mis à jour et le opts() a été dépréciée. Actuellement, vous devez utiliser theme() au lieu de opts() y element_rect() au lieu de theme_rect() etc.

Answer 3

Juste pour améliorer la réponse d'YCR :

1) J'ai ajouté des lignes noires sur les axes x et y. Sinon, elles sont aussi rendues transparentes.

2) J'ai ajouté un thème transparent à la clé de légende. Sinon, vous aurez un remplissage à cet endroit, ce qui ne sera pas très esthétique.

Enfin, notez que tous ces éléments ne fonctionnent qu'avec les formats pdf et png. Le format jpeg ne permet pas de produire des graphiques transparents.

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
)

Answer 4

Pour ceux qui n'aiment pas les fonds gris comme les rédacteurs universitaires, essayez ceci :

p <- p + theme_bw()
p

Answer 5

Le paquet Cairo peut être utilisé pour sauvegarder les ggplots en tant qu'images avec un fond transparent. https://cran.r-project.org/web/packages/Cairo/Cairo.pdf

CaiorPNG(filename = "TEST.png", bg = "transparent")

ggplot(mtcars, aes(wt, mpg))+
   geom_point()+
   theme(panel.background = element_rect(fill = "transparent"),
      plot.background = element_rect(fill = "transparent", colour = NA))

dev.off()