The numerical solution with NDSolve
misses a singular point with infinite derivative. Here is a derivation of the solution:
diffEq = y'[x] == (7 x + 4 y[x])/(7 x + 4 y[x] + 4);
solY = DSolveValue[diffEq, y, x]
eq = y == solY[x]
extractProductLog = Solve[eq, Cases[eq, _ProductLog, All][[1]]][[1, 1]]
implicitEq =
extractProductLog /. (ProductLog[z_] -> w_) :> z == w Exp[w]
initialCond = implicitEq /. {x -> -1, y -> -1}
solForC1 = Solve[initialCond, C[1], Reals]
implicitEquationForInitialConditions =
Simplify[implicitEq /. solForC1[[1]]]
Reduce[implicitEquationForInitialConditions, y, Reals]
ContourPlot[implicitEquationForInitialConditions,
{x, -3, 3}, {y, -3, 3}]