Modifier les polices de caractères dans ggplot2

Question

Je cherche un moyen de modifier les types de police dans ggplot. Pour l'instant, je me contenterais de changer les polices pour la famille de polices 'courier', mais mon objectif final est d'appeler un modèle de police personnalisé - toute contribution sur ce dernier point serait très appréciée.

J'ai fait un peu de recherche en consultant les articles et les messages suivants :

• ggplot2 : Comment changer la police des étiquettes dans geom_text ?
• Nouvelles R Volume 6/2 , Polices non standard en PostScript et PDF Graphic, Murrell et Ripley.
• OrdinateurPolice moderne dans les graphiques ggplot2 ?

C'est peut-être parce que je suis toujours un amateur désespéré de ggplot2, mais je n'ai même pas réussi à changer les polices des graphiques en courier. Avez-vous de l'aide ? J'ai inclus les données du graphique en question, ci-dessous, ainsi que le code, en espérant que tout cela soit assez facile à suivre.

Answer 1

Je pense que votre réponse est bonne mais vous pouvez le faire plus simplement :

install.packages("extrafont");library(extrafont)
font_import("Trebuchet MS")
library(ggplot2)
qplot(1:10)+theme(text=element_text(family="Trebuchet MS"))

Answer 2

Il a résolu ma question avec un minimum de problèmes. C'était une solution en deux étapes à laquelle je ne serais pas arrivé sans suivre les conseils des membres qui ont répondu.

Pour modifier les valeurs par défaut du texte de ggplot, j'ai adapté le code auquel Brandon m'a renvoyé à :

http://johndunavent.com/combined-line-and-bar-chart-ggplot2

Où John Dunavent crée une fonction, theme_min, qui peut être modifiée pour fournir les options par défaut d'un ggplot, y compris l'utilisation des polices importées de Windows avec la commande windowsFonts. Mon adaptation de son code ressemble à ceci :

theme_min = function (size=10, font=NA, face='plain', 
    panelColor=backgroundColor, axisColor='#999999', 
    gridColor=gridLinesColor, textColor='black') 
{
    theme_text = function(...)
        ggplot2::theme_text(family=font, face=face, colour=textColor, 
            size=size, ...)

opts(
    axis.text.x = theme_text(),
    axis.text.y = theme_text(),
    axis.line = theme_blank(),
    axis.ticks = theme_segment(colour=axisColor, size=0.25),
    panel.border = theme_rect(colour=backgroundColor),
    legend.background = theme_blank(),
    legend.key = theme_blank(),
    legend.key.size = unit(1.5, 'lines'),
    legend.text = theme_text(hjust=0),
    legend.title = theme_text(hjust=0),
    panel.background = theme_rect(fill=panelColor, colour=NA),
    panel.grid.major = theme_line(colour=gridColor, size=0.33),
    panel.grid.minor = theme_blank(),
    strip.background = theme_rect(fill=NA, colour=NA),
    strip.text.x = theme_text(hjust=0),
    strip.text.y = theme_text(angle=-90),
    plot.title = theme_text(hjust=0),
    plot.margin = unit(c(0.1, 0.1, 0.1, 0.1), 'lines'))
}

##Create a custom font type. Could be 'F', 'TEST', whatever
windowsFonts(F = windowsFont('Wide Latin'))

##and insert this line of code into the original code I list above: 
+ theme_min(font='F', size=10) 

De façon maladroite, il n'existe aucun moyen (que j'ai trouvé) de modifier de façon générique les paramètres de la police pour les objets geom_text avant la création d'un tracé. La solution proposée par James ci-dessus a toutefois parfaitement fonctionné dans ce cas. Au lieu d'utiliser une police standard, j'ai défini fontfamily="F" pour faire intervenir la police personnalisée que j'ai sélectionnée dans theme_min(), c'est-à-dire :

grid.gedit("GRID.text",gp=gpar(fontfamily="F"))

J'espère que cela sera utile à tous les autres utilisateurs qui cherchent à modifier les polices sur leurs graphiques.

Merci à tous ceux qui m'ont aidé à résoudre ce problème ! Aaron

Answer 3

Regardez l'argument famille de theme_text()

dummy <- data.frame(A = rnorm(10), B = rnorm(10))
ggplot(dummy, aes(x = A, y = B)) + geom_point()
#helvetica = default
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "sans", face = "bold"))
#times
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "serif", face = "bold"))
#courier 
ggplot(dummy, aes(x = A, y = B)) + geom_point() + opts(axis.title.x = theme_text(family = "mono", face = "bold"))

Answer 4

Inspiré par un poste on kohske J'ai trouvé cette idée sur le blog d'un ami :

theme_set( theme_bw( base_family= "serif"))

theme_update( panel.grid.minor= theme_blank(),
             panel.grid.major= theme_blank(),
             panel.background= theme_blank(),
             axis.title.x= theme_blank(),
             axis.text.x= theme_text( family= "serif",
               angle= 90, hjust= 1 ),
             axis.text.x= theme_text( family= "serif"),
             axis.title.y= theme_blank())

theme_map <- theme_get()

theme_set( theme_bw())

Maintenant, quand je veux utiliser ce thème particulier :

last_plot() + theme_map

YMMV.

BTW, si j'avais le pouvoir, je voterais contre la réponse préférée :

> grid.gedit("GRID.text",gp=gpar(fontfamily="mono"))
Error in editDLfromGPath(gPath, specs, strict, grep, global, redraw) :
  'gPath' (GRID.text) not found

Je ne suis pas sûr de ce que cela signifie. On ne m'a pas non plus proposé de lien pour commenter cette réponse ; peut-être que quelque chose a changé sur le site.

Answer 5

Vous pouvez définir la police de caractères des étiquettes produites par geom_text con grid.gedit :

grid.gedit("GRID.text",gp=gpar(fontfamily="mono"))

Appelez-le après avoir produit votre intrigue originale.