1

I would like to add a legend to a combination of plots obtained by Show. For example:
Show[{ListPlot[Table[{t, t^2}, {t, -5, 20, 1}], Frame -> True,
PlotStyle -> PointSize[0.013]],
Plot[2 t^2, {t, -5, 20}, PlotStyle -> {Red, Thin},
PlotLegends -> Automatic]}, FrameLabel -> {x, y}]
Pro...