Show[PolarPlot[1+Cos[θ],{θ,0,2π},AspectRatio->1],Graphics[{PointSize->Large,Point[{(5/6),0}]}],Ticks->None,AxesLabel->{x,y}]