Распределение столбца символов по времени и идентификатору r - PullRequest
Новая
       18

Распределение столбца символов по времени и идентификатору r

0 голосов
/ 29 мая 2018

Вопрос в стиле со многими другими, но все же отличается.Я часто вижу людей, спрашивающих о способе разбить столбец на несколько, но это часто в df, где есть измерение для каждого имени в столбце.

Примерно так: 

head(df)
         id time   fish weight
        1  1    1 marlin      4
        2  1    1    cod      1
        3  1    2    cod      1
        4  2    1 salmon      2
        5  2    1    cod      2
        6  2    2    cod      3

Так что я могу использовать спред как этот (или dcast или аналогичный: 

df<-spread(df, fish,weight, fill=F)
   id time cod marlin salmon
1  1    1   1      4   <NA>
2  1    2   1   <NA>   <NA>
3  2    1   2   <NA>      2
4  2    2   3   <NA>   <NA>

Но что, если у вас нет значения (здесь вес) для переменной, но просто хотите, чтобы распространять типы рыб? Итак, вывод был такой 

  id time   Fish1      Fish2
   1    1   marlin    salmon
   1    2   cod         <NA>
   2    1   salmon       cod
   2    2   cod         <NA>

как вы это делаете? Спасибо за любую помощь. Это очень ценится.

1 Ответ

0 голосов
/ 29 мая 2018

Нам нужна группа по последовательности 

df %>%
  select(-weight) %>%
  group_by(id, time) %>% 
  mutate(ind = paste0("Fish", row_number())) %>%
  spread(ind, fish)
# A tibble: 4 x 4
# Groups:   id, time [4]
#     id  time Fish1  Fish2
#  <int> <int> <chr>  <chr>
#1     1     1 marlin cod  
#2     1     2 cod    NA   
#3     2     1 salmon cod  
#4     2     2 cod    NA

data 

df <- structure(list(id = c(1L, 1L, 1L, 2L, 2L, 2L), time = c(1L, 1L, 
2L, 1L, 1L, 2L), fish = c("marlin", "cod", "cod", "salmon", "cod", 
"cod"), weight = c(4L, 1L, 1L, 2L, 2L, 3L)), .Names = c("id", 
"time", "fish", "weight"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6"))
...