Вот воспроизводимый пример, в котором я использовал вспомогательный столбец (temp) для генерации вложенного столбца data
.
Как получить тот же результат без использования вспомогательного столбца? Я пытался использовать group_by_all
, но это не сработало. (Итак, я также не уверен, что понимаю, что такое функция group_by_all)
df <- structure(
list(
Var1 = c(0L, 1L, 2L, 3L, 0L, 1L, 2L, 3L, 0L, 1L,
2L, 3L, 0L, 1L, 2L, 3L, 0L, 1L, 2L, 3L,
0L, 1L, 2L, 3L),
Var2 = c(0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L,
2L, 2L, 2L, 2L),
Var3 = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L,1L, 1L)
),
.Names = c("Var1", "Var2", "Var3"),
out.attrs = structure(
list(
dim = c(4L, 3L, 2L),
dimnames = structure(
list(
Var1 = c("Var1=0","Var1=1", "Var1=2", "Var1=3"),
Var2 = c("Var2=0", "Var2=1","Var2=2"),
Var3 = c("Var3=0", "Var3=1")),
.Names = c("Var1","Var2", "Var3")
)
),
.Names = c("dim", "dimnames")
),
class = "data.frame", row.names = c(NA,-24L)
)
df$temp <- 1:nrow(df)
df %>% group_by(temp) %>% nest %>% select(-temp)