Comment contrôler la taille de la police en png?

Question

J'essaie de faire des figures pour un manuscrit, qui devrait être écrit avec MS Word, qui n'accepte pas les figures en format pdf. Le journal demande le premier brouillon avec des chiffres incorporés dans le fichier Word. Ces chiffres doivent avoir une résolution minimale de 300 dpi et avoir une largeur de 169 mm ou 81 mm (deux/une colonne). Je remarque que lorsque je spécifie la résolution de l'image à 300 (res = 300), la taille de la police est liée à cette valeur. Cela fonctionne bien avec quelques chiffres (le premier exemple, example.png), et pire avec d'autres (example2.png). Comment puis-je contrôler la taille de la police afin que les dimensions et la résolution de la figure restent fixes?

library(ggplot2) 
library(grid) 

data(iris) 

vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y) 

p <- ggplot(iris, aes(Species, Petal.Length)) 
q <- ggplot(iris, aes(Species, Petal.Width)) 
len <- p + geom_boxplot() 
wid <- q + geom_boxplot() 

png("example.png", width = 169, height = 100, units = "mm", res = 300) 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(1, 2))) 
print(len, vp = vplayout(1, 1)) 
print(wid, vp = vplayout(1, 2)) 
dev.off() 

png("example2.png", width = 81, height = 100, units = "mm", res = 300) 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(1, 2))) 
print(len, vp = vplayout(1, 1)) 
print(wid, vp = vplayout(1, 2)) 
dev.off() 

En d'autres termes, je voudrais diminuer la taille de la police dans example2.png, mais garder la mise en page et les dimensions des deux parcelles qu'ils sont.

Example.png

Example2.png

Answer 1

En utilisant l'argument base_size à la fonction theme_XXX(), vous pouvez modifier la taille globale de police pour tout le texte.

png("example2.png", width = 81, height = 100, units = "mm", res = 300) 
grid.newpage() 
pushViewport(viewport(layout = grid.layout(1, 2))) 
print(len + theme_gray(base_size=12*(81/169)), vp = vplayout(1, 1)) 
print(wid + theme_gray(base_size=12*(81/169)), vp = vplayout(1, 2)) 
dev.off() 

Answer 2

Pour autant que je peux dire au fontsize est la même quelle que soit la résolution et la taille appareil. Vous pouvez le vérifier dans les exemples suivants:

library(grid) 

png("example1.png", width = 30, height = 5, units = "mm", res = 200) 
g <- grid.text("testing font size", gp=gpar(fontsize=12)) 
width <- convertUnit(grobWidth(g), "mm") 
height <- convertUnit(grobHeight(g), "mm", "y") 
grid.rect(width=width, height=height, gp=gpar(lty=2, fill=NA)) 
dev.off() 


png("example2.png", width = 60, height = 5, units = "mm", res = 500) 
grid.text("testing font size", gp=gpar(fontsize=12)) 
grid.rect(width=width, height=height, gp=gpar(lty=2, fill=NA)) 
dev.off() 

Mais il semble que vous vouliez réellement changer la taille de la police.

Answer 3

Il suffit de modifier l'attribut pointsize de png. Par exemple:

png(filename="plot4.png", width=580, height=700, pointsize=20)