一个geom的审美手动缩放排除其他人

Question

我在 ggplot2 对象中有两个geom，它们都使用尺寸美学。如何手动将尺寸范围提供给一个geom但排除其他geom？

因此，在下面的图中，我想为scale_size执行geom_point，但排除geom_text的尺寸美学。

library(ggplot2)

mtcars$car <- rownames(mtcars)

ggplot(mtcars, aes(mpg, wt)) +
    geom_point(aes(size=disp), alpha=.2) +
    geom_text(aes(label=car, size=disp)) +
    scale_size(range=c(11, 20))