R указывает цвет границы точки иначе, чем заливка и линия

Question

Это относится к цвету границы точек и цвету линии различаются между блоком легенды и всем блоком графика, когда pch = 21

У меня есть график с заполненной точкой (pch = 21), черная рамка и зеленая заливка, но у меня также есть усы за ошибку, которые того же цвета, что и цвет заливки.Я знаю, что могу сопоставить точку в легенде, используя комбинацию «col» и «pt.bg», но тогда цвет линии соответствует границе точки, а это не то, что мне нужно:

x=1:10
y=runif(10)
plot(x,y,lwd=3,col="black",bg="green",pch=21,cex=2)
arrows(x,y-0.05,x,y+0.05,lwd=3,col="green",angle=90,code=3)
legend(5,0.8,col="black",pt.bg="green",lwd=3,pch=21,legend="text",cex=2)

дает следующее ...

Есть ли способ иметь легендарные зеленые линии и зеленые заполненные точки с черной границей точек?Еще приятнее было бы иметь усы, но я думаю, что это, вероятно, невозможно ...

Answer 1

Сделайте два legend звонка.Один для построения линии с помощью bg = NA, а другой для построения точки с помощью bty = "n":

set.seed(1)
x=1:10
y=runif(10)
plot(x, y, lwd = 3, col = "black", bg = "green", pch = 21, cex = 2)
arrows(x, y-0.05, x, y+0.05, lwd = 3, col = "green", angle = 90, code = 3)
legend("topright",
       col="green",
       lwd = 3,
       lty = 1,
       legend = "text",
       cex = 2,
       bg = NA)
legend("topright",
       col = "black",
       pt.bg = "green",
       pch = 21,
       lwd = 3,
       legend = "text",
       cex = 2,
       lty = 0,
       bty = "n")