Ajouter une note de bas de page de citation à l'extérieur de la zone de traçage dans la R?

Je voudrais ajouter une note de bas de page la référence à mon 3-panneau de facettes de la grille de la parcelle produites dans R. C'est une note de crédit de la source de données. J'avais l'idéal de l'avoir ci-dessous et à l'extérieur des trois axes---de préférence dans la partie inférieure gauche.

Je suis en utilisant ggplot2 et aussi ggsave(). Cela signifie que je ne peux pas utiliser grid.text()à base de solutions, parce que seuls les tirages sur le x11() fenêtre, et ne peuvent pas être ajoutés à la ggplot objet.

D'utiliser au lieu png() ...code... dev.off() ne semble pas être une option, car j'ai besoin de ggsave's le redimensionnement des paramètres, et de trouver cette commande produit mieux, plus clair imprime (qui sont aussi beaucoup plus rapide, parce que je ne suis pas d'impression de l'écran).

Voici mon code de base:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

J'ai essayé:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
        opts(title=mytitle)
print(p1)
grid.text(unit(0.1,"npc"),0.025,label = "Data courtesy of Me")
grid.gedit("GRID.text", gp=gpar(fontsize=7))
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

Cette façon appropriée met la note de bas de page dans le coin inférieur gauche sur le x11() affichage de l'extérieur de la parcelle, mais malheureusement, comme il n'est pas appliqué à la p1 de l'objet, il n'est pas sauvé par le ggsave commande.

J'ai aussi essayé:

p1 <- ggplot(data, aes(date, value))
    facet_grid(variable ~ .) + geom_point(aes(y =value), size=1) + 
    theme_bw() +
    opts(title=mytitle) +
annotate("text", label = "Footnote", x = 0, y = 10, size = 5, colour = "black") +
print(p1)
ggsave("FILE.png",width=mywidth, height=myheight, p1, dpi=90)

Il imprime à l'aide de ggsave, il a cependant les problèmes suivants:

  • Il est répété 3 fois, dans chacun des 3 facettes, plutôt que 1 fois.
  • Il est contenu dans les parcelles, plutôt que de les extérieurs.
  • Texte est difficile à placer---semble être l'utilisation de la parcelle unités (mon axe des x est la date, donc 0, il met autour de 1970).
  • La taille du texte ne semble pas changer malgré ma taille paramètre.

Un couple de liens à partir de quand j'ai exploré cette...

InformationsquelleAutor Mittenchops | 2012-04-17