This commit is contained in:
tavo-wasd 2023-11-06 23:02:56 -06:00
parent bf90f0cd68
commit 0eb6b8d5f3

View file

@ -55,3 +55,23 @@ con los dígitos desde A hasta B de la variable `VAR_STRING`.
```r ```r
DATA_TOT$VAR_SUBSTRING <- as.numeric(substr(DATA_TOT$VAR_STRING, A, B)) 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
```