Discussion :

[goyagee]

Bonjour,
malgré mes recherches habituellement fructueuses, je n'ai pas réussi à me démêler ... Je cherche à recopier tout simplement la valeur précédente dans un data frame, en fonction d'une condition.
Sur Excel 10 sec sur R je n'arrive à rien ... ca doit pourtant bien être possible :/
Je vais illustrer avec mon exemple excel : nos données en colonne A et B ; 1 contient le critère ; B une initialisation des données

excel : en B2 : =si(A2="critere";B1;A2). puis tirer la formule sur toute la colonne B

Comment faire l'equivalent en R ?
Mes excuses si la réponse existait et que je ne l'ai pas trouvée

J'ai testé avec les fonctions LAG/LEAD qui ne fonctionnait que partiellement pour mon besoin. De même via des boucles, j'obtenais un résultat mais pas celui souhaité. LAST ne semble pas aider non plus ...

[tototode]

Bonjour,

tu peux faire comme suit :

Code :

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

1
2
3
4
5
6
# un exemple :
tab <- structure(list(A = c("a", "b", "a", "a", "a", "b", "a", "a", 
"b", "a"), B = c("A", "B", "C", "D", "E", "F", "G", "H", "I", 
"J")), class = "data.frame", row.names = c(NA, -10L))
 
c(tab$B[1], ifelse(tab$A[-1]=="a", tab$B[-nrow(tab)], tab$A[-1]))

La partie du code qui t'intéresse est celle dans ifelse.
tab$A[-1] c'est pour dire toute les lignes sauf la première donc de A₂ à A_n, tab$B[-nrow(tab)] c'est pour dire de B₁ à B_n-1. Si la condition est remplie alors tu mets B_n-1 sinon tu mets A_n.

cdlt

[goyagee]

Bonsoir,

Merci pour le retour, mais ca ne fait pas ce que je cherche a faire
Ton exemple produit un équivalent du lag d'après l'exécution que j'ai testé.
Je cherche à faire littéralement ca : on doit pas être loin mais je sèche :/

[tototode]

Pourtant c'est bien ce que le code fait.

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
tab <- data.frame(A = rep(c(0, 9, 1, 9), c(1, 3, 2, 2)), B = 1:8)
tab
  A B
1 0 1
2 9 2
3 9 3
4 9 4
5 1 5
6 1 6
7 9 7
8 9 8
tab$B <- c(0, ifelse(tab$A[-1] == 9, tab$B[-nrow(tab)], tab$A[-1]))
tab
  A B
1 0 0
2 9 1
3 9 2
4 9 3
5 1 1  
6 1 1
7 9 6
8 9 7

On voit bien que pour A₂ on a B₂ qui vaut 1 et qui correspond à la valeur de B₁ avant modif. Idem pour A₈, on a B₈ qui est égale à la valeur de B₇ avant modif.
Après je ne vois pas ce qui ne va pas avec ce code.
cdlt

[tototode]

Après c'est peut-être le côté dynamique de excel que tu cherches, mais si c'est le cas tu vas devoir passer par une boucle for ou while :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
B <- rep(NA, nrow(tab))
while (!identical(B, tab$B)){
B <- tab$B
tab$B <- c(0, ifelse(tab$A[-1] == 9, tab$B[-nrow(tab)], tab$A[-1]))
}
 
# ou 
B <- rep(0, 8)
for (i in 2:nrow(tab)) {
  B[i] <- if (tab$A[i]==9) B[i-1] else tab$A[i]
}
tab$B <- B

cdlt

[goyagee]

Ahhh oui effectivement j'essayais de faire tourner avec une boucle sans y parvenir ^^ (tout en sachant bien que ca devait être assez simple ...)
Super merci bcp pour ton aide