How to make a single component of multiple variable using PCA in R programming Language?

Question

I am working on PCA in R and want to make a single component of multiple variables in R programming language.