Plot[{r, ln(1+r)}, {r, 0, Infinity}]