我已经消除了y轴上的标签,因为只有相对数量才是真正重要的。
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")
但是,抑制那些刻度标签会在y轴标签(“簇内差异”)和y轴之间留下很多空白。有没有办法将其推回去?如果我以某种方式将(不可见的)刻度标签设置为在轴的[[inside内,则轴标签是否会沿轴固定?
ylab=""
调用中设置plot
,然后使用title
手动设置y轴的标签。使用line
,您可以调整标签的位置,例如: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")
<< img src =“ https://image.soinside.com/eyJ1cmwiOiAiaHR0cHM6Ly9pLnN0YWNrLmltZ3VyLmNvbS82ZHdsUi5wbmcifQ==” alt =“在此处输入图像说明”>“ >>请阅读
?title
以获取更多详细信息。
mgp
,请参阅?par