R ggplot中的重叠气球图

我想将这两个图重叠为一个：

但我希望在背景中有最大的点，在前景中有最小的点，无论植物类型如何

我基本上想这样做：

但唯一的问题是，这些植物在大小上有很大的不同，所以我想保持它们的密度点大小（保持它们各自的范围）

如果我不能保持他们自己的尺寸范围，但让它成为最大的一点是落后的，这将是不太理想的，但与我想做的可行

编辑：以下是一些示例数据：

TRANSECT FRAME PLANT DENSITY
1        1      SCAR    3600
1        2      SCAR    3840
1        3      SCAR    0
1        4      SCAR    1880
2        1      SCAR    3480
2        2      SCAR    1600
2        3      SCAR    3640
2        4      SCAR    1280
1        1      BRRU    40
1        2      BRRU    40
1        3      BRRU    1320
1        4      BRRU    280
2        1      BRRU    120
2        2      BRRU    0
2        3      BRRU    120
2        4      BRRU    360

密度是在两个不同的尺度上，一个是非常小的瘦植物，另一个更高，占用更多的空间

谢谢

（顺便说一句，最好是包含一个可复制的示例，这样想帮助你的人就不必做你已经做过的额外工作，也不必对你的数据进行猜测，因为这些猜测可能会妨碍你获得适当的答案。）

在这里，我制作了一些虚假数据，并以图形的方式显示了您的示例：

library(dplyr); library(ggplot2)
set.seed(42)
df <- data.frame(FRAME = rep(1:12, each = 4),
                 TRANSECT = rep(1:4, 12),
                 BRRU = runif(48, 0, 3000),
                 SCAR = runif(48, 0, 3000)) %>%
  tidyr::gather(PLANT, DENSITY, BRRU:SCAR)
ggplot(df, aes(FRAME, TRANSECT, size = DENSITY, color = PLANT)) + 
  geom_point()

---

请提供答案，以便其他人可以帮助回答您的问题。非常感谢您的帮助。我将确保在以后的帖子中包含数据。我遇到了一个问题，它说它找不到函数“%%>”。我将在原始帖子中添加一些数据。这表明

dplyr

没有成功加载。我的答案取决于加载它，带有

library（dplyr）

行。我猜这是被忽略还是没有加载。

ggplot(df %>% 
         group_by(FRAME, TRANSECT) %>% 
         arrange(-DENSITY) %>%
         ungroup(), 
       aes(FRAME, TRANSECT, size = DENSITY, color = PLANT)) + 
  geom_point()