Needs["PlotLegends`"]

ZL[f_,L1_] = I*2*Pi*f*L1 ;
ZC[f_,C1_] = 1/(I*2*Pi*f*C1);
ZR[R_] = R;
ZinPara[L1_,C1_,f_] = 1/(1/ZL[f,L1]+1/ZC[f,C1]);
ZinSer[L1_,C1_,f_] =  ZL[f,L1] + ZC[f,C1];

GammaLH[Rs_,Rl_,Z1_,Z2_] = {((Rs - Z1 - Rl*Z2/(Z2+Rl) )/(Rs + Z1 + Rl*Z2/(Z2+Rl))),((Rl - Z2*(Z1+Rs)/(Z1+Z2+Rs))/(Rl + Z2*(Z1+Rs)/(Z1+Z2+Rs)))};
GammaHL[Rs_,Rl_,Z1_,Z2_] = {((Rs -Z1*(Z2+Rl)/(Z1+Z2+Rl) )/(Rs +Z1*(Z2+Rl)/(Z1+Z2+Rl))),((Rl- Z2 - Rs*Z1/(Z1+Rs) )/(Rl + Z2 + Rs*Z1/(Z1+Rs)))};
GammaMatch[Rs_,Rl_] = {(Rs-Rl)/(Rs+Rl),(Rl-Rs)/(Rs+Rl)};

GammaNetwork[Rs_,Rl_,L1_,C2_,f_, Rsmatch_] = Piecewise[{
{{GammaLH[Rs,Rl,ZL[f,L1],ZC[f,C2]],GammaLH[Rs,Rl,ZC[f,C2],ZL[f,L1]]},Rsmatch<Rl},
{{GammaHL[Rs,Rl,ZC[f,C2],ZL[f,L1]],GammaHL[Rs,Rl,ZL[f,L1],ZC[f,C2]]},Rsmatch>Rl},
{{GammaMatch[Rs,Rl],GammaMatch[Rs,Rl]},Rsmatch==Rl}
}];

B[Rs_,Rl_] = Piecewise[{{(((Sqrt[Rl/Rs])*(Sqrt[Rl*(Rl-Rs)]))/(Rl^2)),Rs<Rl},{(1/Rs)*(Sqrt[(Rs-Rl)/Rl]),Rs>Rl},{0,Rs==Rl}}];

X[Rs_,Rl_] = Piecewise[{{(1/B[Rs,Rl])*(1-Rs/Rl),Rs<Rl},{(Sqrt[Rl*(Rs-Rl)]),Rs>Rl},{0,Rs==Rl}}];

soln[Rs_,Rl_,f_] =
{{X[Rs,Rl]/(2*Pi*f),B[Rs,Rl]/(2*Pi*f)},
{1/(2*Pi*f*B[Rs,Rl]),1/(2*Pi*f*X[Rs,Rl])}};

dispAll[Rs_,Rl_,L1_,C1_,fmin_,fmax_,fmatch_] := Show[{
Graphics[{Inset["(Subscript[R, S]) = "<>ToString[N[Rs]]<>"Ohms",{fmin+0.8*(fmax-fmin),-10}]}],
Graphics[{Inset["(Subscript[R, L]) = "<>ToString[N[Rl]]<>"Ohms",{fmin+0.8*(fmax-fmin),-15}]}],
Graphics[{Inset["(Subscript[F, Match]) = "<>ToString[N[fmatch]]<>"MHz",{fmin+0.8*(fmax-fmin),-20}]}],
Graphics[{Inset["L = "<>ToString[N[10^9*L1]]<>"nH",{fmin+0.8*(fmax-fmin),-25}]}],Graphics[{Inset["C = "<>ToString[N[10^12*C1]]<>"pF",{fmin+0.8*(fmax-fmin),-30}]}]
}]

plotGammaVsF = Manipulate[
Show[
Plot[
20*Log10[
Abs[
GammaNetwork[
50*10^Rs,
Rl,soln[50*10^Rs,Rl,10^6*fmatch][[shuntindex]][[1]],
soln[50*10^Rs,Rl,10^6*fmatch][[shuntindex]][[2]],
f*10^6,
50*10^Rs][[shuntindex]][[refindex]]
]
],
{f,0.5*fmin,1.1*fmax},
PlotRange->{{fmin,fmax},{-40,0}},
AxesLabel->{"f (MHz)","Γ (dB)"},
AxesOrigin->{fmin,0}
],
dispAll[50*10^Rs,Rl,soln[50*10^Rs,Rl,10^6*fmatch][[shuntindex,1]],soln[50*10^Rs,Rl,10^6*fmatch][[shuntindex,2]],fmin,fmax,fmatch]
],
{{shuntindex,1,"Topology"},{1->"LP",2->"HP"}},
{{refindex,1,"Γ"},{1->"in",2->"out"}},
{{Rs,Log10[200/50],"(Subscript[R, S]) (Ohms)"},-3,3},
{{Rl,50,"(Subscript[R, L]) (Ohms)"}},
{{fmatch,250,"(Subscript[F, Match]) (MHz)"},fmin*1.1,fmax*0.9},
{{fmin,10,"(Subscript[F, Min]) (MHz)"}},
{{fmax,500,"(Subscript[F, Max]) (MHz)"}}
];

dispLogAll[Rs_,Rl_,L1_,C1_,fmin_,fmax_] := Show[{
Graphics[{Inset["(Subscript[R, S, Match]) = "<>ToString[N[Rs]]<>"Ohms",{fmin+0.8*(fmax-fmin),-20}]}],
Graphics[{Inset["(Subscript[R, L]) = "<>ToString[N[Rl]]<>"Ohms",{fmin+0.85*(fmax-fmin),-25}]}],
Graphics[{Inset["L = "<>ToString[N[10^9*L1]]<>"nH",{fmin+0.85*(fmax-fmin),-30}]}],Graphics[{Inset["C = "<>ToString[N[10^12*C1]]<>"pF",{fmin+0.85*(fmax-fmin),-35}]}]
}]

myTicks[Rsmin_,Rsmax_]:=Table[{i,Superscript[10,i]},{i,Floor[Log10[Rsmin]],Ceiling[Log10[Rsmax]]}]

plotGammaVsR = Manipulate[
Show[
Plot[20*Log10[Abs[GammaNetwork[10^Rs,Rl,soln[50*10^Rsmatch,Rl,10^6*fmatch][[shuntindex]][[1]],soln[50*10^Rsmatch,Rl,10^6*fmatch][[shuntindex]][[2]],fmatch*10^6,50*10^Rsmatch][[shuntindex]][[refindex]]
]
],
{Rs,Log10[Rsmin],Log10[Rsmax]},
PlotRange->{{Log10[Rsmin],Log10[Rsmax]},{-40,0}},
AxesLabel->{"(Subscript[R, S]) (Ohms)","Γ (dB)"},
AxesOrigin->{Log10[Rsmin],0},
Ticks->{myTicks[Rsmin,Rsmax],Automatic}
],
dispLogAll[50*10^Rsmatch,Rl,soln[50*10^Rsmatch,Rl,10^6*fmatch][[shuntindex]][[1]],soln[50*10^Rsmatch,Rl,10^6*fmatch][[shuntindex]][[2]],Log10[Rsmin],Log10[Rsmax]]
],
{{shuntindex,2,"Topology"},{1->"LP",2->"HP"}},
{{refindex,1,"Γ"},{1->"in",2->"out"}},
{{Rsmatch,Log10[200/50],"(Subscript[R, S, Match])"},-3,3},
{{Rl,50,"(Subscript[R, L]) (Ohms)"}},
{{fmatch,250,"(Subscript[F, Match]) (MHz)"}},
{{Rsmin,0.05,"(Subscript[R, Min]) (Ohms)"}},
{{Rsmax,50000,"(Subscript[R, Max]) (Ohms)"}}
];

compnorm = {10^9,10^12};
complabel = {"L (nH)","C (pF)"};

plotComponentsVsR = Manipulate[
Plot[{Log10[soln[10^Rsmatch,Rl,10^6*fmatch][[1]][[compindex]]*compnorm[[compindex]]],Log10[soln[10^Rsmatch,Rl,10^6*fmatch][[2]][[compindex]]*compnorm[[compindex]]]},{Rsmatch,Log10[Rsmin],Log10[Rsmax]},
PlotRange->{{Log10[Rsmin],Log10[Rsmax]},{0,3}},
PlotStyle->{Blue,Red},
AxesLabel->{"(Subscript[R, S]) (Ohms)",complabel[[compindex]]},
AxesOrigin->{Log10[Rsmin],0},
Ticks->{myTicks[Rsmin,Rsmax],myTicks[0.001,1000]},
PlotLegends->LineLegend[Automatic,{"LP","HP"}]
],
{{compindex,1,"Component"},{1->"L",2->"C"}},
{{Rl,50,"(Subscript[R, L]) (Ohms)"}},
{{fmatch,250,"(Subscript[F, Match]) (MHz)"}},
{{Rsmin,0.05,"(Subscript[R, Min]) (Ohms)"}},
{{Rsmax,50000,"(Subscript[R, Max]) (Ohms)"}}
];

Log10[soln[10^2,50,10^6*250][[1]][[1]]]

plotGammaVsF

plotGammaVsR

Off[Power::infy]

Quiet[plotComponentsVsR]