a=5
b=2
c=3
d=1
f[B_,R_]:=c*Log[B]-d*B+a*Log[R]-b*R
ContourPlot[f[B,R],{B,0.4,10},{R,0.5,7},AspectRatio->Automatic, Contours->20,ImageSize->550]