Comment augmenter la taille des points dans la légende de ggplot2?

J'ai des milliers de points dans une figure et définissez la "taille = 1". Cependant, la taille du point dans la légende est également réduite. Comment augmenter la taille du point dans la légende?

Par exemple.

num <- 10000
set.seed(1)
df <- data.frame(x = seq(1, num), y = runif(num), z = rep(1:2, each = num / 2))
df$z <- factor(df$z)
library(ggplot2)
p <- ggplot(df, aes(x, y, colour = z)) + geom_point(size = 1)
p