Как объединить заполненные квадраты и символы сюжета в легенде в R?

Question

Я сделал коробку и добавил среднее значение в качестве точки. В легенде я хотел бы поставить заполненные квадраты, соответствующие клеткам. Гнездо к полям Я хочу добавить символ, соответствующий среднему значению. Однако мои попытки были безуспешны. Любая помощь?

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

Answer 1

Это должно быть отсортировано путем включения значений по умолчанию или 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"))