填充ggplot R中生成的多个路径之间的区域

Question

我在ggplot中使用geom_path并创建了5条路径，如图所示。 我要填充它们之间的区域。

由于它们与每个路径关联的点数不相同，因此使用'pmax'和'pmin'以及geom_ribbon函数对我不起作用。

还有其他解决方法吗？

enter image description here

我使用的代码：

> Anno_vis <- move_layers(for_plot, idx = 1L, position = "bottom") +
  geom_polygon(data = CD3_Contour, aes(x = CD3_Contour$x_Coords, y=  CD3_Contour$y_Coords), alpha = 0.25) + ylim(3000,0) + xlim(0,4000) +
  geom_polygon(data = CD8_Contour,aes(x = CD8_Contour$x_Coords, y= CD8_Contour$y_Coords), color = NA, alpha = 0.25) + 
  geom_polygon(data = CD20_Contour,aes(x = CD20_Contour$x_Coords, y= CD20_Contour$y_Coords), color = NA, alpha = 0.25) +
  geom_polygon(data = FoxP3_Contour,aes(x = FoxP3_Contour$x_Coords, y= FoxP3_Contour$y_Coords), color = NA, alpha = 0.25) +
  geom_polygon(data = CD4_Contour,aes(x = CD4_Contour$x_Coords, y= CD4_Contour$y_Coords), color = NA, alpha = 0.25)+
  geom_polygon(data = CD4_Contour,aes(x = CD4_Contour$x_Coords, y= CD4_Contour$y_Coords), color = NA, alpha = 0.25)+
  theme_bw() +
  stat_smooth()