PU
Size: a a a
PU
АК
IS
AS
PU
AS
IS
АК
> library(data.table)
> tmp_dt <- as.data.table(tmp)
> tmp_dt <- tmp_dt[, list(vals = unlist(y)), by = x]
> tmp_dt[, index := 1:.N, by = x]
> dcast(tmp_dt, x ~ index, value.var = 'vals', fill = NA)
x 1 2 3
1: 1 a b <NA>
2: 2 a <NA> <NA>
3: 3 u x z
4: 4 a b <NA>
5: 5 a <NA> <NA>
> as.data.table(x)[, .(x = x, y = as.data.table(transpose(y)))]
x y.V1 y.V2 y.V3
1: 1 a b <NA>
2: 2 a <NA> <NA>
3: 3 u x z
4: 4 a b <NA>
5: 5 a <NA> <NA>
AS
tidyverse
я понимаю, что обучать их data.table
-- истинное живодёрство.IS
> as.data.table(x)[, .(x = x, y = as.data.table(transpose(y)))]
x y.V1 y.V2 y.V3
1: 1 a b <NA>
2: 2 a <NA> <NA>
3: 3 u x z
4: 4 a b <NA>
5: 5 a <NA> <NA>
АК
PU
> as.data.table(x)[, .(x = x, y = as.data.table(transpose(y)))]
x y.V1 y.V2 y.V3
1: 1 a b <NA>
2: 2 a <NA> <NA>
3: 3 u x z
4: 4 a b <NA>
5: 5 a <NA> <NA>
АК
IS
PU
PU
IS
IS
АК
PU