Я пытаюсь сделать рисунки для рукописи, которая должна быть написана с помощью MS Word, которая не принимает рисунки в формате PDF. Журнал запрашивает первый набросок с рисунками, встроенными в файл Word. Эти рисунки должны иметь разрешение минимум 300 точек на дюйм и ширину 169 мм или 81 мм (два / один столбец). Я замечаю, что когда я указываю разрешение изображения 300 (res = 300), размер шрифта привязывается к этому значению. Это хорошо работает с некоторыми фигурами (первый пример, example.png), и хуже с другими (example2.png). Как я могу контролировать размер шрифта, чтобы размеры и разрешение рисунка оставались неизменными?

<code>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()
</code>

Другими словами, я хотел бы уменьшить размер шрифта в example2.png, но оставить расположение и размеры двух графиков такими, как они есть.

example.png

Example2.png