如何在 R 的图例中组合填充方块和绘图符号?

How to combine filled squares and plot symbols in a legend in R?

我制作了一个箱线图并添加了平均值作为一个点。在图例中,我想将填充的方块对应于方框。嵌套到我想添加一个与均值相对应的符号的框。然而,我的尝试没有成功。有帮助吗?

A <- 1:10
B <- 2:11
DF <- data.frame(A, B)

boxplot(DF, col = gray.colors(2), ylim = c(0,20))
points(1, mean(A), pch = 3, col = "red")
points(2, mean(B), pch = 3, col = "red")
legend("topleft", fill = c(gray.colors(2), 0), legend = c("A", "B", "Mean"), horiz = T,
       pch = 3, col = "red")

这应该可以通过包含默认值或 NA 早期框的 pch= 参数的值来排序,反之亦然。像这样:

legend("topleft", fill = c(gray.colors(2), 0), border=c("black","black",NA),
       legend = c("A", "B", "mean"), horiz = TRUE, pch = c(NA,NA,3), col=c(NA,NA,"red"))