Roger Federer, World No. 1