I wish to rotate a plot in the simplest way possible.
I've tried these previously asked questions, but they did not help to produce a good result:
Unlike another post, which the data is a list, here the data is an interpolating function, and I'm not able to reverse the axes:
Here is my sample code and output:
s = NDSolve[{x'[t] == -x[t] + 2 y[t], y'[t] == -4 y[t] x[t],
x[0] == 1, y[0] == 1}, {x, y}, {t, 0, 100}]
Plot[{Evaluate[x[t]] /. s, Evaluate[y[t]] /. s}, {t, 0, 100},
PlotLegends -> Placed[{"x(t)", "y(t)"}, {{0.75, 0.75}, Center}]]
What I want to produce is something like
I'm looking for a simple implementation, in which I could perform all the plot options (filling, framing etc.).