r - 将列值一起粘贴到数据框中

Question

我正在尝试将行名与所需列中的数据粘贴在一起。我写了下面的代码，但不知何故找不到正确的方法。

所需的输出将是:"a,1,11""b,2,22""c,3,33"

x = data.frame(cbind(f1 = c(1,2,3), f2 = c(5,6,7), f3=c(11,22,33)), row.names= c('a','b','c'))
x
#   f1 f2 f3
# a  1  5 11
# b  2  6 22
# c  3  7 33
do.call("paste", c(rownames(x), x[c('f1','f3')], sep=","))
# [1] "a,b,c,1,11" "a,b,c,2,22" "a,b,c,3,33"

Answer 1

两个要点:

1. 使用apply代替do.call(paste, .)
2. 在这种情况下使用cbind 而不是c。
   • 如果您更愿意使用c，则需要先将行名强制转换为列表或列，例如:c(list(rownames(x)), x)

尝试以下操作:

 apply(cbind(rownames(x), x[c('f1','f3')]), 1, paste, collapse=",")

       a        b        c 
"a,1,11" "b,2,22" "c,3,33"