Manipulate[sccplotin=Plot[{Sin[x^a],Cos[ax],2Sin[ax]},{x,0,6},PlotLabelsPlaced[{"function1","function2","function3"},{{Scaled[1],Before}}],PlotStyle->{If[MemberQ[initial,1],{GrayLevel[0],Thickness[.005]},None],If[MemberQ[initial,2],{GrayLevel[0.4],Thickness[.005]},None],If[MemberQ[initial,3],{GrayLevel[0.8],Thickness[.005]},None],ImageSize->{400*1.618,400},PlotLabel->"Initial Sag and Tension"}],{{initial,{1,2,3}},{1->"function1",2->"function2",3->"function3"},CheckboxBar,ControlPlacement->Left,Appearance->("Horizontal"),ImageSize->Tiny},{a,1,3}]
Out[]=
