Szukam sposobu na efektywne zastosowanie funkcji do każdego wiersza danych.tabela. Rozważmy następującą tabelę danych:

library(data.table)
library(stringr)

x <- data.table(a = c(1:3, 1), b = c('12 13', '14 15', '16 17', '18 19'))
> x
   a     b
1: 1 12 13
2: 2 14 15
3: 3 16 17
4: 1 18 19

Powiedzmy, że chcę podzielić każdy element kolumnyb według spacji (uzyskując w ten sposób dwa wiersze dla każdego wiersza w oryginalnych danych) i połącz wynikowe tabele danych. W powyższym przykładzie potrzebuję następującego wyniku:

   a V1
1: 1 12
2: 1 13
3: 2 14
4: 2 15
5: 3 16
6: 3 17
7: 1 18
8: 1 19

Następujące będą działaćjeśli kolumnaa ma tylko unikalne wartości:

x[, list(str_split(b, ' ')[[1]]), by = a]

Następująceprawie działa (chyba że w oryginalnej tabeli danych znajdują się identyczne wiersze), ale jest brzydkix ma wiele kolumn i kopii kolumny b do wyniku, którego chciałbym uniknąć.

>     x[, list(str_split(b, ' ')[[1]]), by = list(a,b)]
   a     b V1
1: 1 12 13 12
2: 1 12 13 13
3: 2 14 15 14
4: 2 14 15 15
5: 3 16 17 16
6: 3 16 17 17
7: 1 18 19 18
8: 1 18 19 19

Jaki byłby najbardziej skuteczny i idiomatyczny sposób rozwiązania tego problemu?