ImplicitPlot[arctan(y/x)==ln(sqrt(x^2+y^2)),{x,-1,1},{y,-1,1}]