вкладывать все столбцы по строкам

Вот воспроизводимый пример, в котором я использовал вспомогательный столбец (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) 
8
задан Quar 5 July 2019 в 05:09
поделиться