Usted necesita
op <- par(mar = c(2,4,4,2) + 0.1))
plot(hc, xlab = "", sub = "")
par(op)
La primera par()
la línea almacena la configuración actual y luego establece que el margen sea 2 líneas abajo, 4 a la izquierda yt op y 2 líneas a la derecha (más un poco). A continuación, trazamos la configuración de una cadena vacía para el título * sub * a través del argumento sub
. Finalmente, volvimos a establecer los parámetros como antes de la primera línea.
Dejé un poco de espacio en el margen inferior ya que no estoy seguro de lo lejos que pueden llegar las etiquetas. Cambia el primer 2
en mar = c(2,4,4,2)
a algo más pequeño si quieres menos espacio en la parte inferior.
use 'plot (hc, xlab = NA, sub = NA)', como se explica en la página de ayuda para '? Plot.hclust' – Andrie