Musisz
op <- par(mar = c(2,4,4,2) + 0.1))
plot(hc, xlab = "", sub = "")
par(op)
Pierwszy par()
linia przechowuje bieżące ustawienia, a następnie ustawia margines na 2 wiersze na dole, 4 na lewy i t op i 2 linie po prawej (plus trochę). Następnie wykreślamy ustawienie pustego łańcucha dla tytułu * sub * za pomocą argumentu sub
. W końcu ustawiamy parametry z powrotem na to, czym były przed pierwszą linią.
Zostawiłem trochę miejsca na dolnym marginesie, ponieważ nie jestem pewien, jak daleko mogą odłożyć etykiety. Zmień pierwsze 2
w mar = c(2,4,4,2)
na coś mniejszego, jeśli chcesz mieć mniej miejsca na dole.
użyć 'działki (hc, xlab = NA, sub = NA)', jak wyjaśniono na stronie pomocy dla '? Plot.hclust' – Andrie