[r] 문자열 / 문자로 구성된 벡터 연결

Program / 글쓴이

문자 유형의 벡터가있는 경우 값을 문자열로 어떻게 연결할 수 있습니까? paste () 사용 하여 수행하는 방법은 다음과 같습니다 .

sdata = c('a', 'b', 'c')
paste(sdata[1], sdata[2], sdata[3], sep ='')

항복 "abc".

그러나 물론 sdata 의 길이를 미리 알고있는 경우에만 작동합니다 .

답변

붙여 넣기 함수 내에서 빈 접기 인수를 사용해보십시오 .

paste(sdata, collapse = '')

http://twitter.com/onelinetips/status/7491806343 덕분에

답변

매트의 대답은 확실히 정답입니다. 그러나 만화 구호 목적을위한 대안 솔루션은 다음과 같습니다.

do.call(paste, c(as.list(sdata), sep = ""))

답변

다음 과 같이 패키지의 매개 변수 stri_paste와 함께 함수를 사용할 수 있습니다 .collapsestringi

stri_paste(letters, collapse='')
## [1] "abcdefghijklmnopqrstuvwxyz"

그리고 일부 벤치 마크 :

require(microbenchmark)
test <- stri_rand_lipsum(100)
microbenchmark(stri_paste(test, collapse=''), paste(test,collapse=''), do.call(paste, c(as.list(test), sep="")))
Unit: microseconds
                                      expr     min       lq     mean   median       uq     max neval
           stri_paste(test, collapse = "") 137.477 139.6040 155.8157 148.5810 163.5375 226.171   100
                paste(test, collapse = "") 404.139 406.4100 446.0270 432.3250 442.9825 723.793   100
do.call(paste, c(as.list(test), sep = "")) 216.937 226.0265 251.6779 237.3945 264.8935 405.989   100

답변

의 경우 sdata:

gsub(", ","",toString(sdata))

정수 벡터의 경우 :

gsub(", ","",toString(c(1:10)))

답변

Matt Turner의 대답은 확실히 정답입니다. 그러나 켄 윌리엄스 (Ken Williams)의 대답의 정신으로 다음을 수행 할 수도 있습니다.

capture.output(cat(sdata, sep=""))

답변

다음은 이름이 지정되거나 이름이 지정되지 않은 값 목록을 단일 문자열로 축소하여보다 쉽게 ​​인쇄 할 수있는 작은 유틸리티 기능입니다. 또한 코드 라인 자체를 인쇄합니다. R 페이지의 목록 예제에서 가져온 것 입니다.

명명되거나 명명되지 않은 일부 목록을 생성하십시오.

# Define Lists
ls_num <- list(1,2,3)
ls_str <- list('1','2','3')
ls_num_str <- list(1,2,'3')

# Named Lists
ar_st_names <- c('e1','e2','e3')
ls_num_str_named <- ls_num_str
names(ls_num_str_named) <- ar_st_names

# Add Element to Named List
ls_num_str_named$e4 <- 'this is added'

명명 된 또는 명명되지 않은 목록을 문자열로 변환하는 함수는 다음과 같습니다.

ffi_lst2str <- function(ls_list, st_desc, bl_print=TRUE) {

  # string desc
  if(missing(st_desc)){
    st_desc <- deparse(substitute(ls_list))
  }

  # create string
  st_string_from_list = paste0(paste0(st_desc, ':'), 
                               paste(names(ls_list), ls_list, sep="=", collapse=";" ))

  if (bl_print){
    print(st_string_from_list)
  }
}

이전에 작성된 목록으로 기능 테스트

> ffi_lst2str(ls_num)
[1] "ls_num:=1;=2;=3"
> ffi_lst2str(ls_str)
[1] "ls_str:=1;=2;=3"
> ffi_lst2str(ls_num_str)
[1] "ls_num_str:=1;=2;=3"
> ffi_lst2str(ls_num_str_named)
[1] "ls_num_str_named:e1=1;e2=2;e3=3;e4=this is added"

리스트 요소의 서브셋으로 함수 테스트 :

> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"
> ffi_lst2str(ls_num[2:3])
[1] "ls_num[2:3]:=2;=3"
> ffi_lst2str(ls_str[2:3])
[1] "ls_str[2:3]:=2;=3"
> ffi_lst2str(ls_num_str[2:4])
[1] "ls_num_str[2:4]:=2;=3;=NULL"
> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"

답변