how to automate the creation of a variable with tidyr?

Question

Consider this simple example:

mytib <- tibble(city_name1 = c(\'nyc\', \'DC\'),
       city_name2 = c(\'US\', \'US\'),
       planet_name1 = c(\'earth\', \'moon