Copiei e colei o que passou e veja o resultado:

"titulo longo que eu quero\nquebrar e por num grafico"

Nâo houve quebra!

Agora, que penso a respeito dessa funcao, ela tbm pode ser uma combinacao de paste() e strwrap()

f = function(txt, width=30)

paste(strwrap(txt, width=width), sep='', collapse='\n')

titulo = 'titulo longo que eu quero quebrar e por num grafico'

f(titulo)