diff --git a/awesome-software/rstudio/README.md b/awesome-software/rstudio/README.md index d8ff379..11b6ccd 100644 --- a/awesome-software/rstudio/README.md +++ b/awesome-software/rstudio/README.md @@ -55,3 +55,23 @@ con los dígitos desde A hasta B de la variable `VAR_STRING`. ```r DATA_TOT$VAR_SUBSTRING <- as.numeric(substr(DATA_TOT$VAR_STRING, A, B)) ``` + +Para un `dataframe` `DATA_TOT`, crear una variable `ISO_DATE`, utilizando una +fecha en `VAR_DATE` especificada como `format="%d-%m-%Y"`, convertida a +formato ISO. + +```r +DATA_TOT$ISO_DATE <- as.Date(as.character(DATA_TOT$VAR_DATE), format="%d-%m-%Y") +``` + +Para un `dataframe` `DATA_TOT`, filtrar desde/hasta una fecha +(y opcionalmente desde/hasta otra fecha), y sumar solamente los +campos de la columna `VAR_VALUE`. + +```r +DATA_TOT %>% + filter(VAR_DATE < '2023-11-02') %>% + filter(VAR_DATE > '2023-10-10') %>% + pull(VAR_VALUE) %>% + sum +```