Use the names in multiple columns to create new columns

Question

I have a dataset with 6 columns:

Alpha1 <- c(NA,\'Place\', NA, NA, \'Service\')
Rating1 <- c(NA, 5, NA, NA, 5)
Alpha2 <- c(NA,\'Rooms\', NA, NA,