You can use the legend.key theme parameter. it
theme(legend.key = element_rect(fill = "black"))
Example:
a <- seq(1:5) b <- seq(1:5) c <- seq(1:5) d <- data.frame(a, b, c) ggplot(data = d, aes(x = a, y = b, color = factor(c))) + geom_point() + theme(legend.key = element_rect(fill = "yellow"))
gives:

source share