J'ai éliminé les étiquettes sur l'axe des y car seule la quantité relative est vraiment importante.
w <- c(34170,24911,20323,14290,9605,7803,7113,6031,5140,4469)
plot(1:length(w), w, type="b", xlab="Number of clusters",
ylab="Within-cluster variance",
main="K=5 eliminates most of the within-cluster variance",
cex.main=1.5,
cex.lab=1.2,
font.main=20,
yaxt='n',lab=c(length(w),5,7), # no ticks on y axis, all ticks on x
family="Calibri Light")
Cependant, la suppression de ces libellés laisse beaucoup d’espace blanc entre le libellé de l’axe des y ("Variance intra-grappe") et l’axe des y. Y a-t-il un moyen de le repousser? Si je mets en quelque sorte les étiquettes de coche (invisibles) à aller à l'intérieur l'axe, l'étiquette d'axe s'installera-t-elle le long de l'axe?
Essayez de régler ylab=""
dans votre appel plot
et utilisez title
pour définir manuellement l’étiquette de l’axe des y. En utilisant line
, vous pouvez ajuster la position de l’étiquette, par exemple:
plot(1:length(w), w, type="b", xlab="Number of clusters", ylab="",
main="K=5 eliminates most of the within-cluster variance",
cex.main=1.5,
cex.lab=1.2,
font.main=20,
yaxt='n',lab=c(length(w),5,7), # no ticks on y axis, all ticks on x
family="Calibri Light")
title(ylab="Within-cluster variance", line=0, cex.lab=1.2, family="Calibri Light")
Lisez s'il vous plaît ?title
pour plus de détails.
Ajustez mgp
, voir ?par
title(ylab="Within-cluster variance", mgp=c(1,1,0), family="Calibri Light",cex.lab=1.2)