TTable[r_,θ_,θStart_,θEnd_,θStep_]:=TableForm[Table[{θ,r[θ]},{θ,θStart,θEnd,θStep}],TableHeadings->{{},{"θ","r(θ)"}}]

r[θ_]:=2Cos[θ]
TTable[r,θ,0,Pi,Pi/4]

ListPolarPlot[%,PlotStyle->PointSize[.04]]

?TableHeadings