Как манипулировать комбинированным выходом?

Question

У меня есть вектор vars, который имеет шесть элементов:

vars <- c("ac", "fv", "vs", "v2", "ms", "yv") 

сочетать в себе элементы случайным образом я использую combn

a <- do.call(paste, c(data.frame(t(combn(vars, 5))))) 

Выход выглядит следующим образом

a 
[1] "ac fv vs v2 ms" 
[2] "ac fv vs v2 yv" 
[3] "ac fv vs ms yv" 
[4] "ac vs v2 ms yv" 
[5] "fv vs v2 ms yv" 

Теперь я хочу поставьте «+» между элементами, что результат выглядит следующим образом:

a 
[1] "ac+fv+vs+v2+ms" 
[2] "ac+fv+vs+v2+yv" 
[3] "ac+fv+vs+ms+yv" 
[4] "ac+vs+v2+ms+yv" 
[5] "fv+vs+v2+ms+yv" 

Я попытался заменить промежутки между элементами gsub, но это не работает, потому что нет пробелов. Любой комментарий оценивается, спасибо.

Answer 1

Это будет намного проще, если вы используете FUN аргумент в combn. И аргумент collapse в paste идеально подходит для вставки знаков +.

За результат фрейма данных, вы можете сделать

data.frame(a = combn(vars, 5, FUN = paste, collapse = "+")) 
#    a 
# 1 ac+fv+vs+v2+ms 
# 2 ac+fv+vs+v2+yv 
# 3 ac+fv+vs+ms+yv 
# 4 ac+fv+v2+ms+yv 
# 5 ac+vs+v2+ms+yv 
# 6 fv+vs+v2+ms+yv 

Answer 2

Не понятно, почему вы не смогли заменить с помощью gsub

gsub(" ", "+", a) 
#[1] "ac+fv+vs+v2+ms" "ac+fv+vs+v2+yv" "ac+fv+vs+ms+yv" "ac+fv+v2+ms+yv" 
#[5] "ac+vs+v2+ms+yv" "fv+vs+v2+ms+yv" 

Answer 3

Вместо do.call сделать:

apply(data.frame(t(combn(vars, 5))), 1, paste, collapse="+")