如何合併列表的不同元素？

Question

我有一個列表/數據幀，如

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

我想要做的就是打印，

1010001不使用for循環。所以基本上，將這些整數作爲一個字符串並在打印時合併它們？

Answer 1

我將定義一個函數，它截斷最後一個值並將所有其他元素粘貼在一起。然後使用上的所有數據幀

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"