In[]:=
Manipulate[Plot[r((r-1)^2-mur),{r,-3,3},PlotRange{-3,3}],{mu,-1,1}]
Out[]=
​
mu
-3
-2
-1
1
2
3
-3
-2
-1
1
2
3