43 lines
1.1 KiB
Markdown
43 lines
1.1 KiB
Markdown
# Operaciones básicas
|
|
|
|
### Cargar archivos .xlsx como `dataframes`
|
|
|
|
Donde `N_DATASET` es donde se quieren guardar
|
|
los datos, y `FILE.xlsx` el archivo en cuestión.
|
|
Es más recomendable realizar esta importación
|
|
por la interfaz gráfica que ofrece una previa y
|
|
otras opciones útiles.
|
|
|
|
```r
|
|
library(readxl)
|
|
DATASET_N <- read_excel("FILE.xlsx")
|
|
View(DATASET_N)
|
|
```
|
|
|
|
### Crear una lista y combinarla
|
|
|
|
Crea una lista `DATA_LIST` con los `dataframes` importados
|
|
previamente. Luego, combinar la lista en uno solo.
|
|
|
|
```r
|
|
DATA_LIST <- list(DATASET_01, DATASET_02, ... DATASET_N)
|
|
DATA_TOT <- Reduce(function(x, y) merge(x, y, all=TRUE), DATA_LIST)
|
|
```
|
|
|
|
# Operaciones específicas
|
|
|
|
Para un `dataframe` `DATA_TOT`, añadir una variable (columna)
|
|
con el valor de una variable `VAR_VALUE`, en caso de ser **mayor** a cero.
|
|
|
|
```r
|
|
DATA_TOT$VAR_POSITIVE <- ifelse(DATA_TOT$VAR_VALUE > 0, DATA_TOT$VAR_VALUE, 0)
|
|
```
|
|
|
|
Para un `dataframe` `DATA_TOT`, añadir una variable (columna)
|
|
con el valor de una variable `VAR_VALUE`, en caso de ser **menor** a cero.
|
|
|
|
```r
|
|
DATA_TOT$VAR_NEGATIVE <- ifelse(DATA_TOT$VAR_VALUE < 0, DATA_TOT$VAR_VALUE, 0)
|
|
```
|
|
|
|
# Operaciones entre filas y columnas
|