En R en cuanto a manipulación de datos hay dos o tres "escuelas" para escribir código, por un lado tenemos lo que es R base
que son las soluciones de código R
"de fabrica", la otra es la escuela tidyverse
que hace uso de este metapaquete y por último podemos considerar a data.table
otro de los paquetes comunes. En cuanto a tu pregunta, entiendo que lo que buscas es una suma acumulada.
Por ejemplo:
df <- data.frame(Mes = c('Enero', 'Febrero', 'Marzo'), total=c(100, 200, 300))
df
Mes total
1 Enero 100
2 Febrero 200
3 Marzo 300
1. R base:
df$acumulado <- cumsum(df$total)
2. A lo "tidyverse":
library(tidyverse)
df %>%
mutate(acumulado = cumsum(total))
3. Con data.table
Esta solución requiere transformar el data.frame
en un data.table
library(data.table)
dt <- as.data.table(df)
dt[, acumulado := cumsum(total)]
dt
Todas las alternativas generan una salida similar a esta:
Mes total acumulado
1 Enero 100 100
2 Febrero 200 300
3 Marzo 300 600
Comentarios adicionales:
- La suma acumulativa depende del orden, por lo que siempre deberemos ordenar en primer lugar antes de aplicar la sumatoria
- Como toda operación en R hay que contemplar la eventual existencia de valores faltantes o
NA
, cumsum()
no tiene ningún tratamiento para estos valores como si lo tienen otras funciones, un valor NA
si aparece arrastrará este valor hasta el final. Por lo que convendrá hacer un remplazo de los NA
a 0 previo a la suma, por ejemplo: df$total <- ifelse(is.na(df$total), 0, df$total)
cumsum(tu_tf$tu_columna_a_sumar)