# Return to Question

2 added 430 characters in body

If I try:

RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]


I get: However, if I combine it with a ContourPlot:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]
]


I get this: Is there any way to get rid of all the mesh-like segments in the image? I did try Mesh->None.

Guess who it is idea worked:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5}],
Method -> {"TransparentPolygonMesh" -> True}
]


Produced: If I try:

RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]


I get: However, if I combine it with a ContourPlot:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]
]


I get this: Is there any way to get rid of all the mesh-like segments in the image? I did try Mesh->None.

If I try:

RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]


I get: However, if I combine it with a ContourPlot:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]
]


I get this: Is there any way to get rid of all the mesh-like segments in the image? I did try Mesh->None.

Guess who it is idea worked:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5}],
Method -> {"TransparentPolygonMesh" -> True}
]


Produced: Post Closed as "duplicate" by J. M. is away of
1

# Show Combining of RegionPLot and ContourPlot

If I try:

RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]


I get: However, if I combine it with a ContourPlot:

Show[
ContourPlot[{y == x - 1, y^2 == 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Axes -> True, AxesLabel -> Automatic,
PlotLegends -> "Expressions"],
RegionPlot[{y > x - 1 && y^2 < 2 x + 6}, {x, -4, 6}, {y, -3, 5},
Mesh -> None]
]


I get this: Is there any way to get rid of all the mesh-like segments in the image? I did try Mesh->None.