如何更改ggplot2上的参考线几何内部的背景？

Question

我想更改辅助线几何图形中的背景（红色箭头指示的是灰色的背景）

 library(ggplot2)

    dat <- data.frame(x = 1:5, y = 1:5, p = 1:5, q = factor(1:5),
                      r = factor(1:5))
    p <- ggplot(dat, aes(x, y, colour = p, size = q, shape = r)) + geom_point()

    p

Answer 1

ggplot(dat, aes(x, y, colour = p, size = q, shape = r)) +
    geom_point() +
    theme(legend.key = element_rect(fill = "green"))