How to modify the code so that the abscissa and ordinate of the original function and derivative function are adaptive in the same coordinate system so that the displayed image size is appropriate and the form of the function image can be felt as a whole
ClearAll@f;
f[x_] := Log[x]/-x^2
Manipulate[Refresh[functions = Table[D[f[x], {x, n}], {n, 0, nMax, 1}];
orders =
Table[D[f[x], {x, n}] // Inactivate // TraditionalForm //
ToString, {n, 0, nMax, 1}];
labels =
MapThread[#1 <> " = " <> ToString[#2, TraditionalForm] &, {orders,
functions}];];
Plot[functions, {x, 0, 1}, PlotLabels -> labels, PlotRange -> All,
ImageSize -> 700, AspectRatio -> 1,
PlotLabel -> Row[{"f(x) = ", f[x]}]], {{nMax, 1, "Order"}, 1, 10, 1,
PopupMenu}]