car <- 80/100  # dimensione dei caratteri
par(mfrow=c(1,2), mar=c(0,0,0,0))
plot(c(0,100),c(0,100),type="n",xlab="", ylab="",fg="white",xaxt="n",yaxt="n")
testo1 <- "Questa è una prova. Vediamo come viene posizionato il testo.\n
------\n
Nel mezzo del cammin di nostra vita
mi ritrovai per una selva oscura,
ché la diritta via era smarrita.\n
Ahi quanto a dir qual era è cosa dura
esta selva selvaggia e aspra e forte
che nel pensier rinova la paura!"
# Ho dato 0-100 come coordinate alle pagine. Provo a mettere il testo
# dalla y = 95 fino alla y = 40 lasciando spazio 5 tra una riga e
# l'altra. Uso un font monospazio e caratteri grandi l'80% dello standard.
# Provo a usare righe di 38 caratteri. Se serve poi modifico seq, car, ...
# Poi posso ingrandire la finestra grafica cliccando l'apposito bottone.
text(0,seq(95,40,-5),adj=0,strwrap(testo1,width=38),col="blue",family="mono",cex=car)
# Aggiungo una formula, centrata, in fondo)
text(50,10,expression(integral(f(x)*~dx,a,b)),font=2)
plot(c(0,100),c(0,100),type="n",xlab="", ylab="",fg="white",xaxt="n",yaxt="n")
testo2 <- "Tant' è amara che poco è più morte;
ma per trattar del ben ch'i' vi trovai,
dirò de l'altre cose ch'i' v'ho scorte.\n
Io non so ben ridir com' i' v'intrai,
tant' era pien di sonno a quel punto
che la verace via abbandonai.\n
Ma poi ch'i' fui al piè d'un colle giunto,
là dove terminava quella valle
che m'avea di paura il cor compunto,\n
guardai in alto e vidi le sue spalle
vestite già de' raggi del pianeta
che mena dritto altrui per ogne calle."
text(0,seq(95,15,-5),adj=0,strwrap(testo2,width=38),col="red",family="mono",cex=car)

# Volendo si possono visualizzare testi senza introdurli direttamente
# ma richiamandoli da rete. Vedi l'help