如何增加 ggplot2图例中点的大小？

我有几千个点在一个数字和设置 size = 1。但是，图例中的点大小也减小了。如何增加图例中的点大小？

比如说。

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