ParametricPlot[{t Log[t], Log[t]/t}]