各位大神，我想导出RegionPlot的轮廓数据。
如：RegionPlot[{x < y^3 + 1 && y^2 < x^3 + 1}, {x, -2, 5}, {y, -2, 5}]
导出这样的图。现在想要获取轮廓的数据，不知道如何操作。
用listplot，发现在区域内也有数据点
ListPlot[RegionPlot[{x^2 < y^3 + 1 && y^2 < x^3 + 1}, {x, -2,
5}, {y, -2, 5}][[1, 1]]]
先谢谢各位了！

ListPlot@MeshCoordinates@BoundaryMesh@DiscretizeRegion@ParametricRegion[{{x,y},x < y^3 + 1 && y^2 < x^3 + 1}, {{x, -2, 5}, {y, -2, 5}}]

……直接把点从图上挖出来啊，边界线是个Line[…]：
data = Cases[rp // Normal, Line[a_] -> a, Infinity] // First;
data // Line // Graphics