문자열/문자의 벡터를 연결합니다.

문자열/문자의 벡터를 연결합니다.

문자형 벡터가 있는 경우 값을 문자열로 연결하려면 어떻게 해야 합니까?past()를 사용하는 방법은 다음과 같습니다.

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

굴곡성"abc".

하지만 물론 sdata의 길이를 미리 알고 있어야만 효과가 있습니다.

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

paste(sdata, collapse = '')

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

Matt의 답은 확실히 정답이다.그러나 코믹 릴리프를 위한 대체 솔루션이 있습니다.

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

사용할 수 있습니다.stri_paste와 기능하다.collapse매개 변수stringi패키지는 다음과 같습니다.

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

Matt Turner의 답은 확실히 정답이다.그러나 Ken Williams의 답변 정신에 따라 다음 작업을 수행할 수도 있습니다.

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

위해서sdata:

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

정수 벡터의 경우:

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

도서관stringr몇 가지 빠른 방법이 있어요

str_filename(스트론)

기본적으로는 공백 없이 문자 벡터를 접습니다만,collapse인수도 마찬가지입니다.

str_flatten(sdata)
[1] "abc"

옵션도 있습니다.last마지막 구분 기호 대신 사용할 인수입니다.

str_c

와 유사하다paste와 함께collapse이를 위해 지정할 필요가 있는 인수:

str_c(sdata, collapse = "")
[1] "abc"

str_syslog_syslogs

새로운 시점stringr콤마 구분 접기를 원하는 경우 1.5.0을 선택합니다.여기에서는,last인수는 Oxford 콤마를 인식합니다.

str_flatten_comma(sdata)
[1] "a, b, c"

str_flatten_comma(sdata[1:2], last = " and ")
[1] "a and b"

베이스: param0

여기보다 확실한 장점은 없지만paste, 를 사용할 수 있습니다.paste0(sdata, collapse = "")베이스 R부터.

---

훨씬 더 긴 문자열 벡터에 대한 벤치마크를 업데이트하면 기계에서 다음과 같은 결과를 얻을 수 있습니다.

set.seed(4)
x <- sample(letters, 1E6, replace = T)
microbenchmark(stri_paste(x, collapse=''), 
               paste(x,collapse=''), 
               do.call(paste, c(as.list(x), sep="")),
               stringr::str_flatten(x),
               stringr::str_c(x, collapse = ""),
               paste0(x, collapse = ""))

Unit: milliseconds
                                    expr      min        lq       mean     median        uq       max neval cld
            stri_paste(x, collapse = "")  21.1788  21.80040   23.45225   22.78430   24.4271   39.1305   100 a  
                 paste(x, collapse = "") 110.7734 114.36595  126.43277  119.02755  136.5902  187.4112   100  b 
 do.call(paste, c(as.list(x), sep = "")) 538.8329 981.80345 1090.51738 1096.33470 1213.8848 1457.5622   100   c
                 stringr::str_flatten(x)  20.6276  21.60610   23.36241   22.73915   24.2210   42.3481   100 a  
        stringr::str_c(x, collapse = "")  20.9274  21.74285   23.75466   22.73950   24.3254   36.6114   100 a  
                paste0(x, collapse = "") 110.0614 112.81175  124.15555  116.96610  130.6330  168.7199   100  b 

---

Ken Williams의 답변 정신에서도:

Reduce(paste0, sdata)
[1] "abc"

또 다른 방법으로는glue패키지:

glue_collapse(glue("{sdata}"))
paste(glue("{sdata}"), collapse = '')

여기에서는, 이름 있는 또는 이름 없는 값의 리스트를 1개의 문자열로 정리하는 작은 유틸리티 함수를 소개합니다.코드 라인 자체도 인쇄합니다.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"

언급URL : https://stackoverflow.com/questions/2098368/concatenate-a-vector-of-strings-character