Увеличьте ширину линии границы в легенде

Question

У меня есть несколько блоков в легенде, и я хотел бы увеличить толщину линий некоторых из них, чтобы они соответствовали толщине линий на графике.

R код для бланка

 plot( 1, type = 'n')

R-код для легенды - использование lwd не меняет толщину линии для ящиков

legend("topright",
       legend = c("2005 CA II Stations", "2005 Survey Domain",
                  "CA II Access Area","CA II Groundfish Closed Area",
                  "Trawl Strata","SAMS Areas","Statistical Areas"),
       bg = "white", pt.cex = c(2, NA, NA, NA, NA, NA, NA),
       cex = 1, bty = "n", 
       pch = c(19, NA, NA, NA, NA, NA, NA),
       col = c("red", NA, NA, NA, NA, NA, NA),
       fill = c(NA, "gray", "gray", "white", "white", "white", "white"),
       lwd = c(NA, 2, 2, 3, 1, 2, 1),
       border = c(NA, "black", "black", "black", "gray", "red", "blue"),
       x.intersp = 0.5, seg.len = 0.8, y.intersp = 1)

Answer 1

Используйте pch, который принимает аргумент lwd, например, pch = 22, заполненный квадрат. Используйте pt.lwd, если вы хотите установить ширину линий точек независимо от ширины линий в легенде.

plot(1, type = 'n')
legend("topright", legend = c("2005 CA II Stations", "2005 Survey Domain",
                              "CA II Access Area", "CA II Groundfish Closed Area",
                              "Trawl Strata", "SAMS Areas", "Statistical Areas"),
       bty = "n",
       lty = 0,
       pch = c(19, rep(22, 6)),
       pt.cex = 2,
       pt.bg = c(NA, "gray", "gray", "white", "white", "white", "white"),
       pt.lwd = c(NA, 2, 2, 3, 1, 2, 1),
       col = c("red", "black", "black", "black", "gray", "red", "blue"))