How to modify a plotted graphic

I have a set of data points which I fitted using the Mayadas-Shatzke model and then I plotted the fit. My code is:

f[d] = rho/(1 - (3/2) alfa[l, g, R, d] + 3 (alfa[l, g, R, d])^2 - 
    3 (alfa[l, g, R, d])^3 (Log[1 + 1/alfa[l, g, R, d]]))


Show[Plot[{f[d]}, {d, 8, 231}, PlotStyle -> {Red}], 
 Graphics[{PointSize[Medium], Blue, Point[data]}]]

I show you the result of the plot in the next image:

As you can see the zero of the x-axis is between 5 and 10. My question is: how can I modify my code in order to match the zero of the x-axis with 0?