R 粘贴具有特定前缀的所有变量

Question

我想粘贴一组具有给定前缀的变量的内容。例如，给定以下数据:

data <- data.frame(var_1=c(1,2,3,4,5),
                   var_2=c(1,2,3,4,5),
                   var_3=c(1,2,3,4,5))

我想复制以下行为，而不单独列出每个变量名称，而是粘贴带有前缀“var_”的所有变量:

my_strings <- paste(toy_data$var_1,
                    toy_data$var_2,
                    toy_data$var_3)

my_strings
[1] "1 1 1" "2 2 2" "3 3 3" "4 4 4" "5 5 5"

Answer 1

我们可以使用 do.call 进行逐行粘贴

do.call(paste, data[startsWith(names(data), 'var')])
#[1] "1 1 1" "2 2 2" "3 3 3" "4 4 4" "5 5 5"

或者使用 grep 代替 startsWith

do.call(paste, data[grep("^var_\\d+$", names(data))])

或者使用Reduce

Reduce(paste, data[startsWith(names(data), 'var')])
#[1] "1 1 1" "2 2 2" "3 3 3" "4 4 4" "5 5 5"

另一个选项是apply，但速度会很慢

apply(data[startsWith(names(data), 'var')], 1, paste, collapse= ' ')
#[1] "1 1 1" "2 2 2" "3 3 3" "4 4 4" "5 5 5"