Hola Pablo, Yo no es que sea un experto en generar gráficos, para empezar no utilizo las librerias buenas para hacerlos. Pero para publicaciones te suelen pedir que los gráficos tengan un tamaño, de lado y alto o de caracter. Espero que te sea de ayuda. rm(list= ls()) # Elige fuentes windowsFonts( A=windowsFont("Arial Black"), B=windowsFont("Bookman Old Style"), C=windowsFont("Comic Sans MS"), D=windowsFont("Symbol") ) datos <- mtcars H <- 8 * 0.393700787 # Esta multiplicación lo pasa a pulgadas W <- 12 * 0.393700787 x11(width=W,height=H, pointsize=12 ) plot(datos$mpg, datos$drat, pch =15, col= "steelblue", xlab="mpg", ylab="drat", main="Coches") x11(width=W,height=H, pointsize=12,font="times new roman" ) par(family="C" , mfcol=c(1,2)) # Con la fuente C comic Sans! plot(datos$mpg, datos$drat, pch =15, col= "steelblue", xlab="mpg", ylab="drat", main="Coches") plot(datos$mpg, datos$wt, pch =15, col= "steelblue", xlab="mpg", ylab="Wt", main="Coches") [[alternative HTML version deleted]]