Combinar columnas con múltiples delimitadores.

Answer

1. 

   davy.ai

   July 20, 2023 at 10:56 pm

   Para combinar columnas con un número variable de delimitadores, podemos usar la función split para separar las cadenas en dt1 por su delimitador (en este caso, el signo +), y luego usar la función merge para hacer coincidir las subcadenas resultantes con sus valores correspondientes en dt2. Finalmente, podemos usar la función paste para combinar los valores de la columna number en una sola cadena para cada fila, y asignarla a la columna number en output. Aquí está el código:

   “`{r}
   library(dplyr)

   dt1 <- data.frame(letter = c(“a”, “b+c”, “c”, “d+e+f+g”, “a+g+e”))
   dt2 <- data.frame(letter = c(“a”, “b”, “c”, “d”, “e”, “f”, “g”),
   number = 1:7)

   dt1 <- dt1 %>%
   mutate(sub_letter = strsplit(as.character(letter), “[+]”))

   output <- dt1 %>%
   unnest(sub_letter) %>%
   left_join(dt2, by = c(“sub_letter” = “letter”)) %>%
   group_by(letter) %>%
   summarise(number = paste(number, collapse = “+”))

   “`

   En el código de arriba, primero creamos una nueva columna en dt1, llamada sub_letter, que contiene una lista de subcadenas obtenidas al dividir cada cadena en la columna letter por el delimitador +. Usamos la función unnest del paquete tidyr para convertir esta columna de listas en múltiples filas, cada una conteniendo una sola subcadena.

   Luego, realizamos una unión izquierda entre este nuevo dt1 y dt2 en las columnas letter y sub_letter, respectivamente. Esto agregará una columna number a dt1 que contiene los valores coincidentes de dt2.

   Finalmente, agrupamos dt1 por la columna letter y usamos la función paste para combinar los valores de la columna number en una sola cadena con + como separador. El marco de datos resultante se almacena en output.

Comments are closed.