Comment faire des graphiques avec un fond transparent dans R à l'aide de ggplot2?

J'ai besoin à la sortie ggplot2 graphiques de R pour les fichiers PNG avec un fond transparent. Tout est ok avec la R graphiques, 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()

Est-il possible de l'arrière-plan transparent avec ggplot2?

  • Voir aussi cette réponse, la solution actuelle est d'ajouter theme(panel.background = element_rect(fill = "transparent", colour = NA), plot.background = element_rect(fill = "transparent", colour = NA))
  • Veuillez envisager de marquer le deuxième réponse (par YRC) comme acceptée en raison opte obsolètes.
InformationsquelleAutor Yuriy Petrovskiy | 2011-09-17
  1. 53

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

    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
  )

    Façon la plus rapide est l'utilisation de l'aide rect, comme tous le rectangle éléments héritent de rect:

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

    De plus en plus contrôlés façon est d'utiliser des 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

    À enregistrer (cette dernière étape est importante):

    ggsave(p, filename = "tr_tst2.png",  bg = "transparent")
    • Si vous ne définissez pas la plot.background couleur comme la réponse ci-dessus, votre parcelle de terrain aura un contour indistinct.
    InformationsquelleAutor YCR
  2. 84

    Il y a aussi un plot.background option en plus 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 est afficher différemment sur mon ordinateur, j'ai donc omis. Mais pour moi, je reçois un terrain entièrement dans un fond gris à l'exception de la partie de zone de la boîte à moustaches qui est encore blanc. Qui peut être changé en utilisant le remplissage de l'esthétique dans la boîte à moustaches geom ainsi, je crois.

    Modifier

    ggplot2 a depuis été mis à jour et le opts() fonction est obsolète. Actuellement, vous utilisez theme() au lieu de opts() et element_rect() au lieu de theme_rect(), etc.

    • Je ne m'attendais pas à travailler avec un Mac lorsqu'il est testé avec cette plate-forme actuelle de PowerPoint, mais il fonctionne comme annoncé. Et il fonctionne avec les fichiers pdf ainsi si vous supprimez les unités et les remplacer tailles en pouces Bon travail.
    • Cela fonctionne excellente avec MS Powerpoint 2010. En fait, j'avais besoin d'elle pour ce but.
    • Si vous utilisez ggsave, n'oubliez pas d'ajouter dans bg = "transparent" à passer les images png appareil.
    • si vous êtes à l'aide de la knitr paquet (ou slidify etc) vous devez passer dev.args = list(bg = 'transparent') qu'un morceau de l'option. Plus de détails ici stackoverflow.com/a/13826154/561698
    • En supposant que vous utilisez le code mis à jour (theme, pas opts) I pense (et l'équivalent de la solution retenue) fonctionne toujours, aussi loin que je peux dire. Je suis sur le courant ggplot2 et R versions.
    InformationsquelleAutor joran
  3. 2

    Seulement pour améliorer le YCR réponse:

    1) j'ai ajouté des lignes noires sur les axes x et y. Sinon, ils sont transparents trop.

    2) j'ai ajouté un transparent thème de la légende de la clé. Sinon, vous obtiendrez un fond il y,
    ce qui ne sera pas très esthétique.

    Enfin, notez que tous ceux qui travaillent uniquement avec pdf et png. jpeg ne parvient pas à produire transparent graphiques.

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