Concaténation Char + liste

[Christophe Genolini]

Bonjour,

J'ai un vecteur de n caracteres et une liste de n vecteur de nombre :

Code : Tout sélectionner

v <-c("R","T")
t <- list(c(1,3),c(2,4,6))


Je voudrais concatener l'un et l'autre pour obtenir :

Code : Tout sélectionner

c(paste(v[1],t[[1]],sep=""),paste(v[2],t[[2]],sep=""))
# [1] "R1" "R2" "P4" "P5" "P6"


Sauf que la, j'ai triché, j'ai fait a la main en sachant que n=2. Une solution pour n quelconque ?

Christophe

[Pierre Bady]

bonjour

voici une solution à l'emporte-pièce:

Code : Tout sélectionner

> v <-c("R","T")
> t <- list(c(1,3),c(2,4,6))
> c(paste(v[1],t[[1]],sep=""),paste(v[2],t[[2]],sep=""))
[1] "R1" "R3" "T2" "T4" "T6"
> unlist(sapply(1:length(v),function(x) paste(v[x],t[[x]],sep="")))
[1] "R1" "R3" "T2" "T4" "T6"
>

HTH

@++

pierre

[jean lobry]

Bonjour,

une autre soluce possible :

Code : Tout sélectionner

 paste(rep(v, sapply(t, length)), unlist(t), sep = "")
[1] "R1" "R3" "T2" "T4" "T6"


Amicalement,

Jean

[Christophe Genolini]

Super, merci

[Christophe Genolini]

A bien y regarder, vos solutions sont plutot proches. En bref, vous prenez tous les deux paste, sapply, unlist, sep, length... Faut juste trouver le bon ordre !

[Logez Maxime]

Bonjour,

une autre possibilité :

Code : Tout sélectionner

names(t) <- v
with(stack(t),paste(ind,values,sep=""))


C'était juste pour la fonction stack qui peut être utile dans d'autre cas.

Maxime

[jean lobry]

Bonjour,

encore une autre soluce :

Code : Tout sélectionner

unlist(mapply(paste, v, t, sep = ""))

Amicalement,

Jean