TwoAxisPlotud[fun_, rangex_, rangey1_, rangey2_, other___] := GraphicsGrid[{ {Plot[fun, rangex, PlotRange -> {rangex[[2 ;; -1]], rangey2}, Axes -> False, Frame -> {{True, True}, {False, True}}, FrameTicks -> {{True, False}, {False, False}}, Ticks -> {None, Automatic}]}, {Plot[fun, rangex, PlotRange -> {rangex[[2 ;; -1]], rangey1}, Frame -> {{True, True}, {True, True}}, FrameStyle -> {{Automatic, Automatic}, {Automatic, Directive[Thickness[0.01], Dashed]}}, (*FrameStyle\[Rule]{{Automatic,Automatic},{Automatic,Directive[ Thick,Dashed]}},*)FrameTicks -> {{True, False}, {True, False}}, Axes -> False]}}, Spacings -> {0, -15}]
TwoAxisPlotud[{220^x, 10^x}, {x, 0, 1}, {0, 3}, {200.1, 203}]

参看SE帖子《Generating a broken or snipped axis in ListPlotAsk Question》，编号8241。