Plot[-1 + x - Log[x], {x, 0, 10}]