a = Table[i,{i,4}]
p = Plot[ChebyshevT[#,x] &/@ a // Evaluate ,{x,-1.5,1.5}, AxesLabel -> {x, "(Subscript[T, n])(x)"}, PlotLegends -> Placed[ Row[{Subscript["T",#],"(x)"}] &/@ a, {Right,Bottom}]]

<<peeters` ;
peeters`setGitDir[ "figures\\ece1229" ]

peeters`exportForLatex["ChebychevFig1", p]