Using R to calculate pro-rata allocation per product

Question

I have a data-frame with the Product and the quantity. I would like, for each Product to add 3 lines with the pro-rata allocation in sub-product X1, X2, X3. The pro-rate is