From: Matthias Hunstig on
Hello everybody,

I want to combine a Plot with a number of Graphics elements (encircled
numbers) using
Show[kinplot, kinlist]
where kinplot is the Plot and kinlist is a list of Graphics elements.

It works fine until I add a legend to my plot using PlotLegends:

kinplot :=
Plot[{fx*xrt[t], fv*xrtd[t], fa*xrtdd[t]}, {t, 0, tmax}, Mesh -> Marksacc,
GridLines -> Gridacc, PlotLegend -> (Style[#1, FontSize -> 16, FontFamily ->
"Arial",
Bold] &) /@ {"\!\(\*SubscriptBox[\"x\", \"r\"]\)",
"\!\(\*SubscriptBox[OverscriptBox[\"x\", \".\"], \"r\"]\)",
"\!\(\*SubscriptBox[OverscriptBox[\"x\", \"..\"], \"r\"]\)"}, \
LegendPosition -> {-0.85, -0.25}, LegendShadow -> None, LegendSize -> {0.12,
0.2}, LegendTextSpace -> 1]

This makes all the circles move to approximately the same position. There is
no error message.

Is it possible that PlotLegends changes the parameters of the circles? Does
anyone have an idea how to solve this?

Thanks for your help,

Matthias