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]]

