объединить строки в символьном векторе на основе имен элементов

Question

У меня есть именованный символьный вектор, a, который я хотел бы объединить некоторые из его элементов на основе их имени

a <- c('item 1' = 'first_i1', 'item 1' = 'second_i2', 'item 2' = 'only_i2')
a
     item 1      item 1      item 2 
 "first_i1" "second_i2"   "only_i2" 

ожидаемый результат с использованием пробела в качестве разделителя

a_out <- c('item 1' = 'first_i1 second_i2', 'item 2' = 'only_i2')
a_out
              item 1               item 2 
"first_i1 second_i2"            "only_i2"

Answer 1

Мы можем объединить с paste, используя группирующие переменные в качестве names из vector 'a'

tapply(a, names(a), FUN = paste, collapse = ' ')
#            item 1               item 2 
#"first_i1 second_i2"            "only_i2"