Fix y intercept of linear model in R not carrying through to slope coefficient

Question

I believe this should be a simple question, but after reviewing the prior answers on fixing a y-intercept in a simple linear model in R, I still am not getting the expected resu