气泡图点未使用带有 geom_point 的 position_dodge 垂直排列

如何解决气泡图点未使用带有 geom_point 的 position_dodge 垂直排列

我正在尝试使用 geom_point 创建气泡图。我的数据集由 5 年（2015-2019）、每年 3 个时间段（前、中和后）、5 个不同的站和一些站的驻留指数 (RI) 组成，在每年的某些时间段内。我正在尝试创建一个气泡图，显示每个时间段、每个站点、每年的 RI（如果可用）。当使用 geom_point 这样做并结合 geom_dodge 时，该图有效，但一年内跨站的每个时间类别的点并不完全垂直排列（由于某种原因，它们似乎交错）。这是我正在使用的数据框和代码的一个非常简单的示例：

 Year <- as.factor(c("2015","2015","2016","2017","2017")) 
 Station <-  as.factor(c("A","B","C","D","E","A","E")) 
 Time <- as.factor(c("Pre","During","Post","Pre","Post"))
 RI <- as.numeric(c(0.1,0.1,0.2,0.5,0.3,0.6,0.4,0.8,0.5))
 fig_data <- data.frame(Year,Station,Time,RI)

 test_fig <- ggplot(fig_data,aes(x = Year,y = Station,size=RI)) +
   geom_point(aes(fill=Time),position = position_dodge2(width = 4),colour="black",pch=21,alpha = 0.5) +
   scale_size_area(trans = "log1p",max_size = 25)

示例图如下。本质上，我试图创建一个图形，其中代表离散时间段（前、中或后）的 RI 的点将在一年内跨站垂直对齐。例如，代表站 B 和 E 的“期间”时间段的 RI 的最右边的两个圆圈应该垂直对齐，而不是像它们那样交错。与 2015 年的两个蓝色圆圈相同，等等。任何帮助将不胜感激。谢谢！