在單個圖例中設置多個文本大小

Question

我試圖在單個圖例中設置多個文本大小。

plot(1, 1) 
legend("topleft", 
     legend=c("fruit", "apples", "oranges", "vegetables", "cucumber", "peppers"), 
     cex=0.8, 
     pch=c(19, NA, NA, 19, NA, NA), 
     col=c("red", "white", "white", "green", "white", "white"), 
     pt.cex=1) 

我喜歡 「蘋果」， 「桔子」， 「黃瓜」 和 「小辣椒」 是一個更小的尺寸。

我可以通過以下方式設置點的大小不同：

plot(1, 1) 
legend("topleft", 
     legend=c("fruit", "apples", "oranges", "vegetables", "cucumber", "peppers"), 
     cex=0.8, 
     pch=c(19, NA, NA, 19, NA, NA), 
     col=c("red", "white", "white", "green", "white", "white"), 
     pt.cex=c(1, NA, NA, 0.8, NA, NA)) 

但是，如果我嘗試設置文字大小以類似的方式，我得到一個警告，並在兩次創造傳奇奇怪的方式。

plot(1, 1) 
legend("topleft", 
     legend=c("fruit", "apples", "oranges", "vegetables", "cucumber", "peppers"), 
     cex=c(1, 0.8, 0.8, 1, 0.8, 0.8), 
     pch=c(19, NA, NA, 19, NA, NA), 
     col=c("red", "white", "white", "green", "white", "white"), 
     pt.cex=c(1, NA, NA, 0.8, NA, NA)) 

我敢肯定從不理解從CEX想要什麼樣的輸入傳說我的問題造成的。我也意識到我可能會撥打legend()兩次，並使用text()來插入我的文本，但這似乎很費時間和雜亂。

Answer 1

看起來，如果您在圖例調用中提供cex的多個值，它會爲每個（唯一的？）cex值繪製一個圖例。

正如@MrFlick所示，您可以使用不同的字體來創建層次結構。這是一個使用文本的解決方案。通過寫傳奇呼叫的輸出a，我們可以輕鬆地重新使用計算的位置的文本標籤和不同pointsizes只有1額外的行添加文字：

plot(1, 1) 

labs = c("fruit", "apples", "oranges", "vegetables", "cucumber", "peppers") 

# add legend with white (invisible text) and store text positions in 'a' 
a=legend("topleft", 
     legend=labs, 
     cex=1.0, 
     text.col='white', 
     pch=c(19), 
     col=c("red", "white", "white", "green", "white", "white")) 

# draw text labels at calculated positions 
text(a$text$x, a$text$y, lab=labs, cex=c(1, 0.8, 0.8, 1, 0.8, 0.8), pos=4, offset=c(0,0.1))