如何合并列表中的不同元素？

Question

我有一个列表/数据框，例如

a b c d e f g VALUE   
1 0 1 0 0 0 1 934

我想要做的就是打印，

1010001没有使用for循环。所以基本上，将这些整数作为字符串并在打印时合并它们？

Answer 1

我将定义一个函数，它截断最后一个值并将所有其他元素粘贴在一起。然后在所有数据框上使用“apply”

cc <- data.frame(a=1,b=0,c=1,d=0,e=0,f=0,g=1,VALUE=934)

# This function contains the all the jobs you want to do for the row.
myfuns <- function(x, collapse=""){
  x <- x[-length(x)] # truncate the last element
  paste(x,collapse="") # paste all the integers together
}

# the second argument "MARGIN=1" means apply this function on the row 
apply(cc,MARGIN=1,myfuns2)   # output: "1010001"