Plot[Sqrt[4 x], {x, 0, 4}, AxesOrigin -> {4, 0}]