在 R 基礎圖中，將軸標簽移近軸

Question

我已經消除了 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 軸之間留下大量空白。 有沒有辦法把它推回去？ 如果我以某種方式設置（看不見的）刻度標記去里面軸，將沿軸軸標簽了事？

Answer 1

嘗試在plot調用中設置ylab=""並使用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")

請閱讀?title了解更多詳情。

Answer 2

調整mgp ，見?par

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