在R圖中找到左邊距的最佳寬度

Question

我想爲我的特定目的編寫一個繪圖函數，並將y標籤放在左邊距上。然而，這些標籤的長度可能會有很大的不同，並取決於用戶提出的模型術語。爲此，我想測量最長標籤的寬度並相應地設置左邊距寬度。我發現strwidth函數，但我不明白如何將其輸出單位轉換爲mar參數的單位。舉個例子：

label <- paste(letters, collapse = " ") # create a long label 
par(mar = c(5, 17, 4, 2) + 0.1) # 17 is the left margin width 
plot(1:2, axes = FALSE, type = "n") # stupid plot example 

# if we now draw the axis label, 17 seems to be a good value: 
axis(side = 2, at = 1, labels = label, las = 2, tck = 0, lty = 0) 

# however, strwidth returns 0.59, which is much less... 
lab.width <- strwidth(label) # so how can I convert the units? 

Answer 1

您可以使用mai代替mar指定（而不是「線」）以英寸 的距離。

par(mai = c(1, strwidth(label, units="inches")+.25, .8, .2)) 
plot(1:2, axes=FALSE) 
axis(side = 2, at = 1, labels = label, las = 2, tck = 0, lty = 0) 

您可以通過將mar通過mai計算線和英寸 之間的轉換系數。

inches_to_lines <- (par("mar")/par("mai"))[1] # 5 
lab.width <- strwidth(label, units="inches") * inches_to_lines 
par(mar = c(5, 1 + lab.width, 4, 2) + 0.1) 
plot(1:2, axes=FALSE) 
axis(side = 2, at = 1, labels = label, las = 2, tck = 0, lty = 0)