Roger Federer into Wimbledon fourth round for 18th time