"Isoclinas de valores -2,-1,0,1,2 de la ecuación dy/dx=2x-y, campo vectorial y representación gráfica de sus soluciones";

"Isoclinas para los valores -2,-1,0,1,2, ponemos las expresiones de las funciones de y";
isoclinas=Plot[{2x+2,2x+1,2x,2x-1,2x-2},{x,-2,2},AspectRatio->1,PlotRange->{{-2,2},{-2,2} },PlotStyle->Thick]

"Campo vectorial para la  ecuación dy/dx=2x-y";
vectores=VectorPlot[{1,(2x-y)},{x,-2,2},{y,-2,2},AspectRatio->1,PlotStyle->Thick]

"Mostrar conjuntamente isoclinas y campo vector";Show[{isoclinas,vectores},PlotRange->{{-2,2},{-2,2}}]

"Solucion por Mathematica de la ecuación";
sol=DSolve[y'[x]==2x-y[x],y[x],x]
sol[[1]]
sol[[1,1]]
sol[[1,1,2]]

"Dibujando todo en conjunto";
traj=Table[sol[[1,1,2]]/.C[1]->{-2,-1,0,1,2}];
trajectorias=Plot[Evaluate[traj],{x,-2,2},PlotRange->{-2,2},AspectRatio->1,PlotStyle->Thick];
Show[{isoclinas,vectores,trajectorias},PlotRange->{{-2,2},{-2,2}}]