在R基础图中，将轴标签移近轴

I have eliminated labels on the y axis because only the relative amount is really important.

我已经删除了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")

However, suppressing those tick labels leaves a lot of white space between the y axis label ("Within-cluster variance") and the y axis. Is there a way to nudge it back over? If I somehow set the (invisible) tick labels to go inside the axis, would the axis label settles along the axis?

但是，抑制这些刻度标签会在y轴标签（“簇内方差”）和y轴之间留下大量空白区域。有没有办法轻推它？如果我以某种方式设置（不可见）刻度标签进入轴内，轴标签是否会沿着轴固定？

2 个解决方案

#1

Try setting ylab="" in your plot call and use title to set the label of the y-axis manually. Using line you could adjust the position of the label, e.g.:

尝试在绘图调用中设置ylab =“”并使用title手动设置y轴的标签。使用线条可以调整标签的位置，例如：

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")

Please read ?title for more details.

请阅读？标题了解更多详情。

#2

Adjust mgp, see ?par

调整mgp，参见？par

title(ylab="Within-cluster variance", mgp=c(1,1,0), family="Calibri Light",cex.lab=1.2)