As shown by @kglr, you can use ResourceFunction["PlotGrid"]
for this purpose. With the "MergeAxes"
option, you can even get nice axes breaks. Since in your case, both axes of the plots are wildly different, we can create a 2x2 grid of plots and fill the two empty corners with Graphics[{},Frame->True]
type plots:
ResourceFunction["PlotGrid"][
{
{
Graphics[{}, PlotRange -> 10000, Frame -> True],
Show[Plot2, PlotRange -> {Automatic, {85, Automatic}}, Frame -> True]
},
{
Show[Plot1, Plot2, Frame -> True],
Frame[Graphics[{}, PlotRange -> 10000, Frame -> True]]
}
},
PlotRange -> Min,
"MergeAxes" -> "Cut",
Spacings -> 10,
ItemSize -> {{1, 2}, 1}
]

Some notes:
The current version of PlotGrid
has an issue that causes too many axes break indicators to appear. I have submitted a fixed version, in the meantime you can manually work around this issue as shown at the bottom of this answer Note: This has been fixed by now
- I set the
PlotRange
of the two filler plots to a large value so that I can then use PlotRange->Min
on the entire PlotGrid
to make all ranges consistent (the 10000
essentially needs to be bigger than all plots ranges, such that the range of the actual plots is chosen). Alternatively you could set the plot ranges of the two filler plots manually, but that would require a lot of tweaking.
- I set the
ItemSize
of the first column to be smaller than the second to somehow hint at the fact that the first column covers a way smaller range. This can obviously be removed/tweaked if desired
- I combine the two plots in the bottom left to ensure that any points from
Plot2
in the range of Plot1
are also shown
- I tweak the
PlotRange
of Plot2
slightly so that the vertical ranges of the two rows don't overlap
- I set
Frame->True
for all plots since that's needed for PlotGrid
to give us a nice frame with broken axes
Workaround
Note: the underlying issue has been fixed, so this is no longer relevant
As noted above, the current version of PlotGrid
has an issue that causes too many axes break indicators to appear:

To work around the issue until the updated version is accepted, we can manually set the FrameStyle
of all four plots to have invisible (white) frames in towards the middle, and grey frames on the outside:
ResourceFunction["PlotGrid"][
{
{
Graphics[{}, PlotRange -> 10000, Frame -> True,
FrameStyle -> {{GrayLevel[0.4], White}, {White, GrayLevel[0.4]}}
],
Show[Plot2, PlotRange -> {Automatic, {85, Automatic}},
FrameStyle -> {{White, GrayLevel[0.4]}, {White, GrayLevel[0.4]}}
]
},
{
Show[Plot1, Plot2,
FrameStyle -> {{GrayLevel[0.4], White}, {GrayLevel[0.4], White}}
],
Frame[Graphics[{}, PlotRange -> 10000, Frame -> True,
FrameStyle -> {{White, GrayLevel[0.4]}, {GrayLevel[0.4], White}}]
]
}
},
PlotRange -> Min,
"MergeAxes" -> "Cut",
Spacings -> 10,
ItemSize -> {{1, 2}, 1}
]
Overlay
. UseFrame->True
for each plot and label the two sets of ticks on two different edges. Then overlay the two plots. WhatShow
does is combining all graphic elements on the same canvas with their specified positions; this is why the range of yourdataA
dataB
looks really narrow. $\endgroup$ListLogLinearPlot
? $\endgroup$