построение двух частей разделенной строки с использованием немоноширинного шрифта с получением правильных интервалов (с использованием graphics :: text)

Question

Я хочу разделить строку (ab) на две части и построить каждую часть (a, b) отдельно, используя graphics::text (причина не важна, но мне нужно придерживаться базовой графики). Это просто с моноширинными шрифтами. Тем не менее, я сталкиваюсь с пробелами, используя немоноширинные шрифты (см. Нижнюю правую часть изображения ниже, где текст перекрывается).

ab <- "Escape your\nconcerns - Mind\ntoo focussed"    # full string
a  <- "           \n         - Mind\ntoo focussed"    # part 1
b  <- "Escape your\nconcerns -     \n            "    # part 2

layout(matrix(1:4, 2))
par(mar=c(0,0,0,0))

plot(0.5, .5, type="n", yaxt = "n", xaxt = "n")
text(.5, .5, ab, family="mono", cex = 2)
plot(0.5, .5, type="n", yaxt = "n", xaxt = "n")
text(.5, .5, a, col ="red", family="mono", cex = 2)
text(.5, .5, b, col ="blue", family="mono", cex = 2)

plot(0.5, .5, type="n", yaxt = "n", xaxt = "n")
text(.5, .5, ab, cex = 2)
plot(0.5, .5, type="n", yaxt = "n", xaxt = "n")
text(.5, .5, a, col ="red", cex = 2)
text(.5, .5, b, col ="blue", cex = 2)

Любые идеи о том, как это исправить, так что будет отображать правильные расстояния?