How to place legend inside a plot?

Questions
1

Kindly let me know as how to place the legend in the following code, to be placed inside the plot. In my case presently it is placed outside the plot.

y = Range[1, 10];
x = Range[1, 10];
visco = 12*10^-6;
x = (-p11*(1/xi + I k) - p44*(1/xi + I k)*(I k - 1/xi) + 
     p66*(1/xi^2 + k^2) +  y*(q22*(1/xi + I k) - q33*(1/xi + I k) (I k - 1/xi) - 
        q44*(1/xi^2 + k^2) - q55*(1/xi - I k)))/(p22 + 
     p33*(I k - 1/xi) - p55*(1/xi^2 + k^2));
x = x*10^-25;
Plot[{Re[x] /. {xi -> 10}, Re[x] /. xi -> 50, Re[x] /. xi -> 100}, {k,
   0, 100}, PlotRange -> All, 
 PlotStyle -> {Directive[Red, Thick], Directive[Blue, Dashed, Thick], 
   Directive[Black, Thick, Dashed]}, Frame -> True, 
 FrameStyle -> Directive[Black, Thickness@0.0125], 
 PlotLegends -> {Style["\[Xi] = 10", Bold, 14], 
   Style["\[Xi] = 50", Bold, 14], Style["\[Xi] = 100", Bold, 14]}, 
 FrameLabel -> {"K", "\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(r\)]\)"}, 
 LabelStyle -> Directive[Black, Bold, 14], RotateLabel -> True, 
 AspectRatio -> 0.5]
2

Hi Rahul,

You did not specify where inside the plot, you can adjust that

PlotLegends -> 
 Placed[LineLegend[{Style["\[Xi] = 10", Bold, 14], 
    Style["\[Xi] = 50", Bold, 14], Style["\[Xi] = 100", Bold, 14]}, 
    LegendFunction -> Frame, LegendLayout -> "Row"], {Center, Top}]
3

Thanks, Kindly tell me how to remove the legend border?

4

Remove LegendFunction -> Frame. Check the documentation for other options.