목록이있는 붙여 넣기 사용

Question

역함수 인 strsplit 및 paste의 동작을 이해하려고합니다. 내가 다시 함께 목록의 lapplycat의 요소를 사용하여 시도

> strsplit(c("on,e","tw,o","thre,e","fou,r"),",") 
[[1]] 
[1] "on" "e" 

[[2]] 
[1] "tw" "o" 

[[3]] 
[1] "thre" "e" 

[[4]] 
[1] "fou" "r" 

,하지만 작동하지 않습니다 : 나는 벡터를 strsplit 그러나, 목록이 너무 좋아, 반환

> lapply(strsplit(c("on,e","tw,o","thre,e","fou,r"),","),cat) 
on etw othre efou r[[1]] 
NULL 

[[2]] 
NULL 

[[3]] 
NULL 

[[4]] 
NULL 

cat 대신 paste과 같은 공식이 실제로 아무것도하지 않습니다! 이러한 결과가 나타나는 이유는 무엇입니까? 원하는 결과를 얻으려면 어떻게해야합니까? 원래 벡터가 다시 나타납니다.

(물론, 내 실제 코드에서 나는 더 strsplit 및 cat 그냥 원래 벡터를 돌아보다 할 노력하고있어,하지만 난이 문제에 대한 해결책이 광산을 위해 일 것이라 생각합니다. 감사합니다!)

Answer 1

예, cat은 연결되어 콘솔에 인쇄되지만 실제로는 동일한 방법으로 작동하지 않습니다. paste. 그것은 최고의 paste에 help("cat")

collapse 인수 설명 및 결과 것은 효과적으로 strsplit에서 split 인수의 반대입니다. sapply을 사용하면 단순 붙여 넣기 벡터를 반환 할 수 있습니다. 이런 경우에, vapply이 sapply보다 더 효율적으로 될 것

는

x <- c("on,e","tw,o","thre,e","fou,r") 

(y <- sapply(strsplit(x, ","), paste, collapse = ",")) 
# [1] "on,e" "tw,o" "thre,e" "fou,r" 
(z <- vapply(strsplit(x, ","), paste, character(1L), collapse = ",")) 
# [1] "on,e" "tw,o" "thre,e" "fou,r" 

identical(x, y) 
# [1] TRUE 
identical(x, z) 
# [1] TRUE 

참고. 그리고 fixed = TRUE을 strsplit에 추가하면 효율성이 높아집니다.