R：具有多種顏色的圖例框

Question

我有一個繪圖（），其中多個顏色陰影表示相同的東西。我想添加一個傳說，通過使用雙色框（參見下面的示例）來傳達這一點。有沒有辦法使用legend（）或類似的命令來做到這一點？或者，是否有辦法確定這些盒子的精確座標，以便我可以在其上繪製一個多邊形（）三角形？

注意：legend（）不會返回每個標籤的外框和左上角的座標，但我不確定這是否足以計算彩色框的位置。

Answer 1

稍微骯髒的黑客可以讓你得到legend()功能給你必要的信息。比我更聰明的人可能會計算出legend()如何計算框定位並將其複製到函數的外部。請注意，編輯標準R函數可能不被推薦。

如果你還沒有編輯R裏面的函數呢，一個簡單的（和暫時的）的方式來訪問它，是打字

fix(legend) 

打字

rm(legend) 

以後將撤消更改。

找到這節說fill <- rep，並添加註釋所指示的線路：

fillList <- NULL ## added 
    if (mfill) { 
     if (plot) { 
      fill <- rep(fill, length.out = n.leg) 
      rect2(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox, 
       col = fill, density = density, angle = angle, 
       border = border) 
      fillList <- data.frame(left = xt, top = yt + ybox/2, dx = xbox, dy = ybox) ## added 
     } 
     xt <- xt + dx.fill 
    } 

找到最後一行，並通過

output <- legend(...) ## replace ... with whatever you want to have as inputs 

將其更改爲

invisible(list(rect = list(w = w, h = h, left = left, top = top), 
     text = list(x = xt, y = yt), fillList=fillList)) ## modified 

現在叫傳說

和繪製三角形使用返回的信息像這樣：

with(output$fillList[1,], { ## first box 
     polygon(c(left, left+dx, left+dx), c(top, top, top-dy), col=myColour, border=NA) 
    }) 

Answer 2

這是一個黑客位的，但你可以把兩個傳說在另一個上面。不幸的是，沒有左三角形pch這將是你想要的。

plot(1) 
legend("bottomright",c("Label 1", "Label 2"),pch=22,col=c("red","blue"),pt.bg=c("red","blue"), pt.cex=1.8) 
legend("bottomright",c("Label 1", "Label 2"),pch=21,col=c("green","orange"),pt.bg=c("green","orange"))