В базовом графике R, как можно развернуть несколько pchs для одного и того же символа?

Question

plot(1, pch = 19, cex = 3, col = "red")
points(1, pch = 1, cex = 3, col = "black", lwd = 2)

legend("top",
   "sym",
   pch = 19,
   col = "red",
   cex = 2,
   pt.cex = 4)

legend("top",
   "sym",
   pch = 1,
   col = "black",
   cex = 2,
   pt.cex = 4)

В R черная сплошная линия может быть добавлена ​​к сплошному красному кругу, например:

Тогда, как я могу использовать символ с добавленными типами для легенды?

Каккод показывает, легенды не могут быть добавлены, но перекрываются.

Спасибо.

Answer 1

Опция Anoter - использовать символ pch, который работает с опцией background, его можно использовать только тогда, когда pch = 21: 25 .

plot(1, pch = 19, cex = 3, col = "red")
points(1, pch = 1, cex = 3, col = "black", lwd = 2)

legend("top",
       "sym",
       pch = 21,
       pt.bg="red",
       cex = 2,
       pt.cex = 4)

Answer 2

Использование bty = "n"

plot(1, pch = 19, cex = 3, col = "red")
points(1, pch = 1, cex = 3, col = "black", lwd = 2)

legend("top",
       "sym",
       bty = "n",
       pch = 19,
       col = c("red"),
       cex = 2,
       pt.cex = 4)

legend("top",
       "sym",
       bty = "n",
       pch = 1,
       col = c("black"),
       cex = 2,
       pt.cex = 4)

^{Создано в 2019-02-14 пакетом Представить (v0.2.1)}