Bom dia colegas listeiros!

Estou encontrando um pequeno problema e gostaria de uma ajuda.
Ao executar o comando para gerar gráficos de boxplot, o titulo do eixo y fica muito colado aos valores desse eixo.
 
png(paste0(cidade[city], '.png'), width = 1600, height = 900, res = 196)
    par(mar=c(5,6,0.25,2))
    par(cex=.8)
    b1 = boxplot(a.box,remove.outlier=NA, las = 1, xlab = 'Semeadura',
                 ylab = expression(Produtividade~atingível~(kg~ha^-1)),
                 ylim = c(0,16000),cex=0.5, pch=16)
    grid.text(paste0(titulos[city]),x=.5, y=.9)
    dev.off()

Dessa forma, pensei em inserir uma linha em branco entre o título do eixo e o eixo y usando o comando \n

png(paste0(cidade[city], '.png'), width = 1600, height = 900, res = 196)
    par(mar=c(5,6,0.25,2))
    par(cex=.8)
    b1 = boxplot(a.box,remove.outlier=NA, las = 1, xlab = 'Semeadura',
                 ylab = expression('Produtividade atingível (kg ha^-1)\n'),
                 ylim = c(0,16000),cex=0.5, pch=16)
    grid.text(paste0(titulos[city]),x=.5, y=.9)
    dev.off()

Usar esse comando inseriu a linha em branco mas assim fico com problemas em ajustar a parte sobrescrita da legenda.

Dessa forma, gostaria de uma ajuda para executar um comando que me desse esse espaço entre a legenda e o eixo y sem prejudicar o sobrescrito da legenda.

Desde já, agradeço pela colaboração de todos!

Yury Duarte
Engenheiro Agrônomo - ESALQ/USP