Externalisation de la disposition de code dans ggplot

Question

Je voudrais externaliser mes mises en page dans ggplot2 car mon code est très encombré. Disons que j'ai une disposition donnée que j'applique sur plusieurs parcelles dans différentes fonctions. Il ressemble à ceci:

scale_fill_gradientn(guide="colourbar",colours=costum.colorbar_sand.blue.green)+ 
     theme (legend.title = element_text(size = 15,family="Arial"))+ 
     theme (legend.text = element_text(size = 12,family="Arial",angle=45))+ 
     theme (legend.position = "bottom")+ 
     coord_map(projection="mercator"); 

Je voudrais le mettre un fichier externe ou dans un objet, puis l'appeler dans ma fonction de complot.

J'ai essayé read_chunk du knitr package comme ceci: J'ai enregistré le code vide comme ci-dessus dans un fichier R, puis j'ai essayé de l'implémenter dans ma fonction. Par conséquent je l'ai juste écrit dans la fonction comme ceci

function.xy(...){...some ggplot function... 
    read_chunk("some\path") 
    } 

Mais ça ne marche pas. J'ai également essayé paste(read_chunk("some\path")) mais cela ne fonctionne pas. Une autre idée que j'avais était de le sauvegarder en tant qu'objet et de simplement coller le texte mais cela ne fonctionnait pas aussi bien parce que je ne sais pas comment l'enregistrer en tant qu'objet texte (s'il y a quelque chose comme ca). Quelqu'un peut-il me conseiller sur la façon de faire cela?

Answer 1

Vous pouvez externaliser le code de disposition en un segment séparé. Voir example 083 (et ses output) dans le référentiel knitr-examples. La clé est des références de morceaux via <<>>.

Answer 2

Je fais cela de deux façons. Dans mon dossier à tricoter, je déclare les options de complot que je sais allons utiliser fréquemment, l'enregistrement des éléments regroupés dans une liste, comme suit:

plot.option1 <- list(scale_fill_gradient(guide="colourbar",colours=costum.colorbar_sand.blue.green), 
        theme(legend.title = element_text(size = 15,family="Arial"), 
          legend.text = element_text(size = 12,family="Arial",angle=45), 
          legend.position = "bottom"), 
        coord_map(projection="mercator")) 

Ensuite, il est juste une question de annexant + plot.option1

par exemple:

ggplot(dat, aes(x,y)) + plot.option1 

Si vous avez beaucoup d'entre eux (disons pour les thèmes d'entreprise), vous pouvez tout aussi facilement les mettre dans un scénario séparé et la source puis à la tête de votre fichier à tricoter.

exemple minimal:

plot.opt <- list(scale_color_brewer(palette="Blues")) 
ggplot(diamonds, aes(carat, price, color=color)) + geom_point() + plot.opt 

Answer 3

Une autre option tout à fait semblable à celui de @ brandon-Bertelsen est de créer une fonction personnalisée:

add.my.layout <- function(g) { 
    g + scale_fill_gradientn(guide="colourbar",colours=costum.colorbar_sand.blue.green)+ 
     theme (legend.title = element_text(size = 15,family="Arial"))+ 
     theme (legend.text = element_text(size = 12,family="Arial",angle=45))+ 
     theme (legend.position = "bottom")+ 
     coord_map(projection="mercator") 
} 

Et puis dans votre code, vous pouvez juste faire:

myggplot <- ggplot(...) 
add.my.layout(myggplot) 

Vous pouvez de affinez vos fonctions dans les fichiers R externes si vous le souhaitez.