Plot[{x/ Log [x], x}, {x, 2, 5},Filling->{1->{2}}, FillingStyle -> {Red, Blue}]