Concatene um vetor de strings / caracteres

273

Se eu tiver um vetor de caractere de tipo, como concatenar os valores em string? Aqui está como eu faria isso com paste () :

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

cedendo "abc".

Mas é claro que isso só funciona se eu souber a duração dos sdata antes do tempo.

usuario
fonte

Respostas:

480

Tente usar um argumento de recolhimento vazio na função colar:

paste(sdata, collapse = '')

Obrigado a http://twitter.com/onelinetips/status/7491806343

Matt Turner
fonte
7
Apenas uma observação de que if sdatapode conter cadeias com o mesmo comprimento ou com tamanhos variáveis paste(sdata, sep = '', collapse = '')deve ser usada para evitar resultados inesperados.
Zelanix
42

A resposta de Matt é definitivamente a resposta certa. No entanto, aqui está uma solução alternativa para fins de alívio em quadrinhos:

do.call(paste, c(as.list(sdata), sep = ""))
Ken Williams
fonte
6
você realmente poderia ter trabalhado uma declaração apply () lá. Se você fizer isso eu vou até votar você;)
JD Longo
essa seria realmente a solução mais elegante se o collapseparâmetro não existisse. não muito alívio cômico se você recentemente, na verdade, tinha que fazer algo muito semelhante :)
voando ovelhas
9

Você pode usar a stri_pastefunção com o collapseparâmetro from stringipackage como este:

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

E alguns benchmarks:

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
bartektartanus
fonte
2
Eu nunca havia realizado benchmarks em R. Nice para aprender algo novo.
Torrien 20/03/19
6

Para sdata:

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

Para um vetor de números inteiros:

gsub(", ","",toString(c(1:10)))
Patrick
fonte
6
Esta é uma resposta perigosa - se houver seqüências de espaço de vírgula nos elementos do vetor, essa resposta as removerá.
C8H10N4O2
5

A resposta de Matt Turner é definitivamente a resposta certa. No entanto, no espírito da resposta de Ken Williams, você também pode:

capture.output(cat(sdata, sep="")) 
C8H10N4O2
fonte
1

Aqui está uma pequena função utilitária que recolhe uma lista de valores com ou sem nome em uma única sequência para facilitar a impressão. Também imprimirá a própria linha de código. É dos exemplos da minha lista na página R.

Gere algumas listas nomeadas ou sem nome:

# 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'

Aqui está a função a que converterá a lista com ou sem nome em string:

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)
  }
}

Testando a função com as listas criadas anteriormente:

> 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"

Testando a função com subconjunto de elementos da lista:

> 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"
ventilador
fonte