How can I use gsub and grep to calculate the weighted average in R?

Question

I want to calculate the weighted average of different columns with different names This is my dataset

weight4 <- c(4,2,3,4,5,6)
height4 <- c(4,2,3,3,5,8)
si