R is only returning non-zero coefficient estimates when using the “poly” function to generate predictors. How do I get the zero values into a vector?

Question

I\'m using regsubsets from the "leaps" library to perform best subset selection. I need to compare the coefficients it generates to the "true" coefficients I