tidyr :: распространяй, но сохраняй оригинальные данные

Question

Данные

test = data.frame(case=c("cyl","eng","mon"),
worst=c(1,0,1),money=c(123,42,13),girl=c("no","yes","no"))

desired_test= data.frame(case=c("cyl","eng","mon"), worst=c(1,0,1),money=c(123,42,13),girl=c("no","yes","no"),
                       worst_cyl=c(1,0,0),worst_eng=c(0,0,0),worst_mon=c(0,0,1))

Попытка:

test %>% group_by(case) %>% spread(case,worst,fill=0,sep="_")

Почему моя попытка не работает?

Answer 1

Я предполагаю, что это имеет больше смысла в контексте большего набора данных, но вы можете достичь желаемого результата, добавив rowid_to_column и связав столбцы ключ / значение, используемые в spread:

library(tidyr)
library(dplyr)

test %>%
  rowid_to_column() %>%
  spread(case,worst,fill=0,sep="_") %>%
  cbind(test[c("case", "worst")], .) %>%
  rename_at(vars(starts_with("case_")), ~sub("case", "worst", .x)) %>%
  select(-rowid)

  case worst money girl worst_cyl worst_eng worst_mon
1  cyl     1   123   no         1         0         0
2  eng     0    42  yes         0         0         0
3  mon     1    13   no         0         0         1