I would make a single plot, after defining the two functions f1
and f2
, and avoid giving a white FrameStyle
, because it is usually invisible:
ListLinePlot[{Table[{q, f1[q]}, {q, .7, .85, .005}],
Table[{q, f2[q]}, {q, .7, .85, .005}],
Transpose[{kk, dxs}]},
PlotLegends ->
Placed[LineLegend[{"lg1", "lg2", "lg3"}, LegendMargins -> 0,
LegendFunction -> (Framed[#1, FrameMargins -> Small] & )], {0.77,
0.8}], PlotRange -> All, Axes -> False, Frame -> True,
FrameLabel -> {{a, b}, {c, d}}]