Somme avec cellule précédente

Bonjour,

Voici mon problème. J'ai un data frame avec une colonne représentant des températures data$Temp .

J'ai crée une deuxième colonne où je veux mettre les températures base 10°C data$sommT. Donc comme calcul je veux faire:

(Température -10)+ case précédente de sommT

Et ceci sur toute la colonne.

Quelqu'un a une idée ?

Merci :calim2:

Bonjour,

je n'ai pas vraiment compris ta demande car tu utilises des noms différents pour tes colonnes de dataframe dans ta question (Température =? data$Temp) et tu ne dit pas si data$sommT est une somme cumulée ou les température -10.

Voici la solution qui me semble la plus logique (il est sans mieux) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

vector1 <- c(1,2,3,4,5,6,7,8,9) datafr <- data.frame('init' = vector1) # somme cumulée des températures initiales datafr$cumsum <- cumsum(datafr$init) # températures initiale moins 10°C datafr$min10 <- vector1-10 # somme cumulée précédente datafr$prev <- c(0, datafr$cumsum[1:length(datafr$cumsum)-1]) # calcul final datafr$final <- datafr$min10 - datafr$prev datafr

---

Bonjour,

Merci pour la réponse.

En fait, j'ai plusieurs problèmes en 1, j'ai jamais fait ce genre de calcul avec R.

Voici un premier problème:
le calcul avec une base, par exemple pour des températures avec une base 10°C.

Code:

---

vector1 <- c(9,10,11,12,13,14,15)

---

Le résultat devrait être ceci : (0,0,1,3,6,10,15). Si la températures est inférieure ou égale à 10 alors on a 0, si elle est supérieure à 10 alors la température base 10 sera égale à (température -10) + somme de température précédente .

Je me demande si c'est possible de faire ceci en R avec une seule ligne de code, sans condition if ? :calim2:

Cumsum a l'air adapté sauf pour cette "condition", je n'ai pas réussi à l'adapter pour cet usage.

Quelqu'un a une idée ?

Cumsum est parfaitement adapté, il faut juste lui donner la bonne donnée en entrée.

Avec ton exemple :

Code:

---

vector4 <- cumsum(pmax(0, vector1-10))

---

Avant de tout vouloir faire en une ligne, essaie étape par étape. Pose ton algorithme puis tente d'améliorer ensuite si tu veux faire plus concis.
Personnellement je préfère cette version :

Code:

---

1 2 3

vector.base10 <- pmax(0, vector1-10) vector3 <- cumsum(vector.base10)

---

Merci beaucoup pour cette réponse. Je connaissait pas du tout la commande pmax. :D