a <- c('(acetyl)RKJOEQLKQ', 'LDFEION(acetyl)EFNEOW')
gsub('\\(acetyl\\)(.)', '(\\1)', a)
# => [1] "(R)KJOEQLKQ"     "LDFEION(E)FNEOW"