我尝试使用ggplot2制作散点图，其中点的直径与轴上的变量具有相同的维度，并且应该具有相同的比例。这个问题在this question和this one中都得到了很好的解决，这是通过在图形上绘制椭圆来解决的（现在使用geom_circle从ggforce开始）。然而，对于我的应用程序，我需要绘制数千个点，使用geom_point速度很快，但使用geom_circle非常慢。是否有办法将geom_point缩放到轴的比例？
作为该问题的一个示例，下图显示了使用scale_radius时比例的差异：

x <- runif(20, 0, 20)
y <- runif(20, 0, 20)
radius <- runif(20, 0, 4)
df <- data.frame(x = x, y = y, size = radius)

library(ggplot2)

p <- ggplot(
    data = df,
    mapping = aes(
      x = x,
      y = y,
      size = radius
    )
  ) + 
  geom_point() + 
  coord_fixed() + xlim(0, 20) + ylim(0, 20) + 
  scale_radius(range = c(min(radius), max(radius)))

p

我试过使用scale_radius和scale_continuous，但是两者都使用相对于轴标度而言任意的标度（scale_radius也不会缩放，这样大小为0的点就会显示大小为0）。我有了使用ggplot_build访问绘图大小并相应地缩放点大小的想法。我可以使用ggplot_buil(p)$layout$get_scales(i=1)或layer_scales(p)访问绘图范围，但没有变量与scale_radius使用的单位中的绘图大小相对应。