I think better still, you could get the correlation, not just mapped one variable to all but all variables mapped to all others. You can do that easily with just one line of code. Using the pre-installed mtcars
datasets.
library(dplyr)
cor(select(mtcars, mpg, wt, disp, drat, qsec, hp ))