Как изменить размер символа в ggplot2, если размер, форма и цвет заданы через geom_point?

Проблема, с которой я столкнулся, безусловно, тривиальна, но я не могу ее решить. Мне нужно иметь собственную форму, цвет и размер для geom_point(). Однако, если я его установлю, размер символов в легенде не изменится.

Итак, скажем, я хочу построить это:

library("ggplot2")

x <- rnorm(2000, 0, 1)
y <- rnorm(2000, 0, 1)
category <- sample(c("one", "two"), 2000, replace = TRUE)
size <- rnorm(2000, 0, 1)*10

df <- data.frame(x, y, category, size)

dev.new()

ggplot(df, aes(x=x, y=y, color=category)) +
    geom_point(size = df$size) +
    guides(color = guide_legend(override.aes = list(size = 10)))

Но тогда, если я захочу изменить внешний вид своего geom_point(), я не смогу установить размер точек в легенде. Другими словами, это больше не работает:

dev.new()
ggplot(df, aes(x=x, y=y, fill=category)) +
    geom_point(shape=21, colour = "black", size = df$size) +
    guides(color = guide_legend(override.aes = list(size = 10)))

Я чувствую, что мне следует передать направляющим больше параметров, но, возможно, нет. Что делать?

Я не могу найти ответа на свой вопрос. Если да, отметьте это как дубликат и добавьте ссылку. Спасибо!

Обновлено:

ожидаемый результат представлен вторым графиком, который я предоставил (где я установил эстетику для geom_point()), но тогда мне нужны точки в легенде такого размера, как я хочу.

Обновлено еще раз:

использование sample вместо rnorm (как предложено в комментарии), кажется, дает ту же проблему:

library("ggplot2")

x <- sample(2000, 1000, replace=T)
y <- sample(2000, 1000, replace=T)
category <- sample(c("one", "two"), 2000, replace = TRUE)
size <- sample(2000, 1000, replace=T)/50

df <- data.frame(x, y, category, size)

dev.new()

ggplot(df, aes(x=x, y=y, color=category)) +
    geom_point(size = df$size) +
    guides(color = guide_legend(override.aes = list(size = 10)))

dev.new()

ggplot(df, aes(x=x, y=y, fill=category)) +
    geom_point(shape=21, colour = "black", size = df$size) +
    guides(color = guide_legend(override.aes = list(size = 10)))