Discussion :

[popsmelove]

Bonjour,

je cherche une fonction qui me permette de concaténer les éléments d'un vecteur avec un séparateur de mon choix.

Ex :

le vecteur A : a b c

Je souhaite avoir "& a & b & c &"

Je trouve bizar qu'il n'y ait pas de fonction qui le fasse....

Merci

[manoir]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
e<-c("a","b","c") # définir ton vecteur
> e
[1] "a" "b" "c"
> cat("\n",e,sep="&","\n")
 
&a&b&c&

Manoir

[popsmelove]

merci manoir, le truc c'est que cette fonction print le resultat mais ne me permet pas de la mettre dans une autre variable

[pitipoisson]

Bonjour,

Je trouve bizar qu'il n'y ait pas de fonction qui le fasse....

Ça l'eut été effectivement !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
> paste(c("", letters[1:3], ""), collapse=" & ")
[1] " & a & b & c & "

[popsmelove]

Merci !!!

Entre temps j'ai fais cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
concat = function(X,sepa="",ext=TRUE,roc=3)
{
 
# PURPOSE: Concatenate the different element of a vector or a matrix,
# with the possibility to do it in columns or in rows
#---------------------------------------------------------
# INPUT:
# * X = Vector or matrix of data
# * sepa = separator if needed
# * ext = separator in exterior of the vector
# * roc = concat in row or columns or all element of the matrix
# -------------------------------------------------------------
# OUTPUT:
# * xma = filtered data
# -------------------------------------------------------------
# C. CARPENTIER (2009)
 
if( is.null( dim(X) ) ) {
 
  if (ext==TRUE) { ex =sepa } else { ex =""}
  A = paste(ex,X[1],sep="")
  sapply(2:length(X),function(i)
  {
    A <<- paste(A,X[i],sep=sepa)
  })->raz  
  paste(A,ex,sep="")  
 
} else {
 
  if (roc ==3) {
    Y <- as.vector(X)
    concat(Y,sepa,ext)
  } else { apply(X, roc, concat, sepa, ext) }
 
}	
 
}

[popsmelove]

Nouvelle version plus simple grâce à pitipoisson !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
###############################################################################
# Matrix & Vector concatenation
 
concat = function(X,collaps="",sepa="",ext=TRUE,roc=3)
{
 
# PURPOSE: Concatenate the different element of a vector or a matrix,
# with the possibility to do it in columns or in rows
#---------------------------------------------------------
# INPUT:
# * X = Vector or matrix of data
# * sepa = separator if needed
# * ext = separator in exterior of the vector
# * roc = concat in row or columns or all element of the matrix
# -------------------------------------------------------------
# OUTPUT:
# * xma = filtered data
# -------------------------------------------------------------
# C. CARPENTIER (2009)
 
if( is.null( dim(X) ) ) {
 
  if (ext==TRUE) { ex =collaps } else { ex =""}
  paste(ex,paste(X,collapse=collaps,sep=sepa),ex,sep=sepa)
 
} else {
 
  if (roc ==3) {
    Y <- as.vector(X)
    concat(Y,collaps,sepa,ext)
  } else { apply(X, roc, concat, collaps,sepa, ext) }
 
}	
 
}