Изменить выбранные элементы вектора символов

Существует ли более короткая версия для следующего принципа переименования определенных столбцов фрейма данных?

data1