Как управлять размером шрифта в png?

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

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

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

Example.png

Example2.png