Как сделать разные размеры шрифтов на графиках с определенным кеглем

Question

Я пытаюсь получить определенные размеры шрифта для диаграмм рассеяния на основе рекомендаций Nature. Мне сказали, что все мои кегли для текста должны быть равны 7, поэтому я использовалpar(ps = 7). Однако мне нужен другой размер шрифта для основного заголовка. Мне нужен размер шрифта 8 пунктов. Я понимаю, что могу использоватьcex.mainно я так запутался в соотношении, чтобы получить точный размер точки. Может кто подскажет, как получить размер шрифта в 8 пунктов для заголовка.

Вот мой код для одного из графиков:

par(mfrow=c(2,2), ps = 7)

par(mar=c(6,4,1,0))

#Plot for Confirmed Tick Data
plot(tick1_data$Year, tick1_data$average_cases,
     main = "a",
     cex.main = 1/1.14, ## I'm not sure this is giving me 8 point font size ##
     type = "p",
     pch = 19,
     cex = 2,
     col = '#BF0436',
     xlab = "",
     ylab = "Average Confirmed Cases",
     ylim = c(0,308),
     bty = "n",
     xaxt = "n")
mtext(side = 1, text = "Year", line = 5)
par(bty = "n")
axis(side = 1, at = seq(2006, 2017, by = 1), las = 2)
rect(2004, -10, 2100, 50, border = NA, col = "#d3d3d365")

lines(spline(2005:2017, tick1_data$average_cases, n = 100), col= "#BF0436", lwd = 2)