R: ящики с более чем одним цветом

Question

У меня есть сюжет(), где несколько цветовых оттенков представляют одну и ту же вещь. Я хотел бы добавить легенду, которая передает это с помощью двухцветных ящиков (см. Пример ниже). Есть ли способ сделать это, используя legend() или аналогичную команду? Альтернативно, есть ли способ идентифицировать точные координаты этих ящиков, чтобы я мог построить над ним треугольник polygon()?

Примечание: legend() возвращает координаты внешнего блока и левого верхнего угла каждого ярлыка, но я не уверен, достаточно ли этого, чтобы рассчитать, где находятся цветные прямоугольники.

Answer 1

Немного грязный хак может позволить вам получить функцию legend(), чтобы дать вам необходимую информацию. Более умный человек, чем я, вероятно, будет выяснять, как legend() вычисляет расположение ячеек и реплицирует это вне функции. Обратите внимание, что редактирование стандартных функций R, вероятно, не рекомендуется.

Если вы не изменяли функции R все же, простой (и временный) способ доступа к нему, набрав

fix(legend) 

Typing

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 
    } 

найти очень последнюю строку и изменить его

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

Теперь называют легендой через

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

и ничьи треугольники, используя информацию, возвращаемую legend() так:

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