ИП
dt_long <- melt(DT, id = "group", measure = c("col_1", "col_2"))
dcast(dt_long[!is.na(value),], group ~ variable)
Size: a a a
ИП
dt_long <- melt(DT, id = "group", measure = c("col_1", "col_2"))
dcast(dt_long[!is.na(value),], group ~ variable)
АК
Unit: milliseconds
expr min lq mean median uq max neval
lapply 1533.89599 1584.00099 1627.36902 1605.96314 1676.74357 1761.26281 100
dcast 40.95953 43.44285 44.83673 44.22631 46.06784 53.78539 100
А
А
AA
А
EP