Recopier valeur cellule précédente dans un data frame

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

Bonjour,

tu peux faire comme suit :

Code:

---

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

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 :/
Pièce jointe 444547

Pourtant c'est bien ce que le code fait.

Code:

---

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

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:

---

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

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