Comparing Functions and their Taylor Polynomials

f1[x_] := Log[1 + x]

g1[x_,n_] := Normal[Series[f1[y],{y,0,n}]]/.y -> x

f2[x_] := Exp[x]
g2[x_,n_] := Normal[Series[f2[y],{y,0,n}]]/.y -> x

f3[x_] := Sin[x]
g3[x_,n_] := Normal[Series[f3[y],{y,0,n}]]/.y -> x

Manipulate[Plot[Tooltip[{f1[x],g1[x,n]}],{x,-1,1.5}, PlotRange -> {-1,1.5}, PlotStyle->Thick],{n,1,8,1}]

Manipulate[Plot[Tooltip[{f2[x],g2[x,n]}],{x,-1,3}, PlotRange -> {0,27}, PlotStyle->Thick],{n,1,8,1}]

Manipulate[Plot[Tooltip[{f3[x],g3[x,n]}],{x,-Pi,4 Pi}, PlotRange -> {-1,1}, PlotStyle->Thick],{n,1,8,1}]