推 cywhale: do.call("paste",list(dt$V2, collapse="")) %>% 03/17 12:29
→ cywhale: strsplit(split="") %>% table() 03/17 12:30
推 allen1985: table(unlist(sapply(dt$no, function(x) 03/17 13:01
→ allen1985: strsplit(x,"")))) 03/17 13:01
→ celestialgod: 一樓做法比較好,vectorize程度比較高 03/17 19:10
推 memphis: 為什麼要do.call? 直接貼起來不就好了? 03/17 21:08
→ celestialgod: 沒差(攤手,do.call => do a function call 03/18 08:33
→ celestialgod: 你用paste0(dt$V2, collapse="")跟 03/18 08:34
→ celestialgod: do.call("paste",list(dt$V2, collapse="")) 是一樣 03/18 08:34
→ celestialgod: do.call第一個element可以不用quote拉~~ 03/18 08:34
→ celestialgod: argument 03/18 08:34