|   | 1 |  initial version  | 
Here is a possibility to convert your polynomial P to the desired output
sage: R2 = QQ['x','y','z','t']['r']
sage: s = R2.zero()
sage: for c,m in zip(P.coefficients(),P.monomials()):
....:         s += R2(c.polynomial('r')) * R2(m)
sage: print s
(y + 2*t)*r + x + 2*z
 Copyright Sage, 2010. Some rights reserved under creative commons license. Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.
 
                
                Copyright Sage, 2010. Some rights reserved under creative commons license. Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.