tengo una función para generar un código estátito a partir de variables dinámicas que entran como parámetro. La cuestión es que dichas variables están en una lista de "string"
.
Por ejemplo:
lista_V12 = c("V121","V122", "V123", "V124")
lista_V13 = c("V131","V132", "V133", "V134", "V135")
Se corresponden con nombres de variables de un df/tibble. Y desde cada lista, se hace referencia a las columnas que se van a usar para generar otra nueva. Para ello, como se va a realizar con distintas agrupaciones de columnas/variables de un total de 154, quiero crear una función que automatice el proceso a partir de parámetros: df/tibble, nombre de la nueva variable, lista de variables de calculo.
crear_VConjunta <- function(df_datos, vble, lista_vbles) {
bd_int = df_datos %>% select(all_of(lista_vbles))
Proceso: aplicar mutate sobre un case_when cuyo contenido genero así:
condiciones = purrr::imap(lista_vbles, ~quo(!!.x == 1 ~!!.y))
Aplico mutate para crear la nueva columna variable. La lista se incluye en los criterios de un case_when en su parte izquierda, es decir para indicar nombres de columna originales pero también influye la posición en la lista para asignar un código en la nueva columna/variable.
vfin = bd_int %>% mutate("{vble}" := case_when(!!!condiciones))
El problema aparece cuando en las condiciones, la lista de "string" permanece con las dobles comillas y no consigue hacer referencia a la columna específica que sí ha generado con la primera instrucción de la función:
bd_int = df_datos %>% select(all_of(lista_vbles))
Pero en el caso de la meta programación, al generar el texto estático con purrr::imap
el contenido de la lista lo genera como "V121"
y no como V121
, que es lo deseable, quedando un cógido final para mutate - case_when
:
Incorrecto: puesto que condiciones
, aparece como un quosure
, pero que viene a generar este contenido (no literal, pero es el efectivo al final):
vfin = bd_int %>% mutate("{vble}" := case_when("V121" == 1 ~1,
"V122" == 1 ~2,
"V123" == 1 ~3,
"V124" == 1 ~4,
"V125" == 1 ~5))
Con esta doble comilla que viene arrastrada de la lista de str pasada como parámetro. Internamente, condiciones
, no da error en el procesamiento, pero no encuentra dichas variables.
Correcto:
vfin = bd_int %>% mutate("{vble}" := case_when(V121 == 1 ~1,
V122 == 1 ~2,
V123 == 1 ~3,
V124 == 1 ~4,
V125 == 1 ~5))
Sí es capaz de generar la nueva columna con los valores adecuados.
No encuentro una forma de conseguir que el contenido de condiciones
tenga la llamada a la variable V121
y no la cadena "V121"
.
Para tener todo el código de la función:
crear_VConjunta <- function(df_datos, vble, lista_vbles) {
bd_int = df_datos %>% select(all_of(lista_vbles))
condiciones = purrr::imap(lista_vbles, ~quo(!!.x == 1 ~!!.y))
vfin = bd_int %>% mutate("{vble}" := case_when(!!!condiciones))
vfin
}
He intentado manipular el quosure, eliminar a mano las comillas directamente sobre el mismo, pero es una estructura interna de expresiones evaluables que no es fácil de tocar y genera otros problemas.
Los datos sobre los que opero una vez realizada la selección: Los datos de partida son:
# A tibble: 60 × 5
V121 V122 V123 V124 V125
<dbl> <dbl> <dbl> <dbl> <dbl>
1 0 0 1 0 0
2 0 0 1 0 0
3 0 0 1 0 0
4 1 0 0 0 0
5 0 0 1 0 0
6 0 0 1 0 0
7 0 1 0 0 0
8 0 0 1 0 0
9 0 1 0 0 0
10 0 0 1 0 0
# … with 50 more rows
Y el objetivo sería que apareciera una nueva columna V12
, en la que se recodifique todo, pasando cada aparición de 1 en las columnas previas a un código según esto:
1 en V121 a 1 en V12
1 en V122 a 2 en V12
1 en V123 a 3 en V12
1 en V124 a 4 en V12
1 en V125 a 5 en V12
Ese es el objetivo. Como se trata de realizar esto unas 15 veces en una tabla de 154 columnas, había pensado en una solución automatizada con esta función. Gracias, porque parece que ya está más cerca la solución.
Todo esto lo he ido haciendo consultando:
https://stackoverflow.com/questions/26003574/use-dynamic-name-for-new-column-variable-in-dplyr
https://www.desarrollo-web-br-bd.com/es/r/pegar-nombre-de-variable-en-mutate-dplyr/838366735/amp/
Muchas gracias
apply(bd_int, 2, \(x) x == 1) |> apply(1, which) |> sapply(min)
funciona y no dependen derlang
. Sería cuestión de conformar la matrizbd_int
y envolverla la función en unmutate()
.