R: Капитализация всего после определенного символа

Я хотел бы записать все с заглавной буквы в векторе символов, который идет после первого _. Например, следующий вектор:

x <- c("NYC_23df", "BOS_3_rb", "mgh_3_3_f") 

Должен выйти так:

"NYC_23DF" "BOS_3_RB" "mgh_3_3_F"

Я пытался играть с регулярными выражениями, но не могу этого сделать. Будем признательны за любые предложения.