Создать последовательность столбцов на основе других столбцов в R - PullRequest
Новая
       1

Создать последовательность столбцов на основе других столбцов в R

2 голосов
/ 17 января 2020

У меня есть такие данные. 

        data.sample <- read_table2('score_label treatment   score   data1   data2   data3
A   treatment   1   1   t   yt
A   treatment   2   1   t   yt
A   treatment   3   5   f   yt
B   treatment   1   5   f   yt
B   treatment   2   5   f   yt
B   treatment   3   5.5 g   yt
B   treatment   4   6.8 t   yt
C   treatment   1   9.4 t   yt
C   treatment   2   10.7    f   yt
C   treatment   3   12  j   yt
C   treatment   4   13.3    t   yt
C   control 1   14.6    t   yt
C   control 3   18.5    k   yt
C   control 4   19.8    t   yt')

Я хотел бы создать df, такой как этот. Где каждая группа обработки метки баллов имеет балл от 1 до 4 и где 0 заполняется в ячейках, где этот балл ранее не присутствовал. 

output<- read_table2('score_label   treatment   score   data1   data2   data3
A   treatment   1   1   t   yt
A   treatment   2   1   t   yt
A   treatment   3   5   f   yt
A   treatment   4   0   0   0
B   treatment   1   5   f   yt
B   treatment   2   5   f   yt
B   treatment   3   5.5 g   yt
B   treatment   4   6.8 t   yt
C   treatment   1   9.4 t   yt
C   treatment   2   10.7    f   yt
C   treatment   3   12  j   yt
C   treatment   4   13.3    t   yt
C   control 1   14.6    t   yt
C   control 2   0   0   0
C   control 3   18.5    k   yt
C   control 4   19.8    t   yt')

Я думал о том, чтобы сделать это, чтобы создать новый столбец оценки, но это не сработало так, как я надеялся. Любые предложения приветствуются! 

data.sample %>%
group_by(score_lable, treatment) %>%
mutate(new_score=seq(4))

1 Ответ

3 голосов
/ 17 января 2020

Мы можем использовать complete с fill

library(dplyr)
library(tidyr)
data.sample %>% 
    group_by(score_label, treatment) %>% 
    complete(score = unique(data.sample$score),
          fill = list(data1 = 0, data2 = 0, data3 = '0'))

Если в fill много столбцов, его можно построить как list

nm1 <- names(data.sample)[startsWith(names(data.sample), 'data')]
fillcols <- setNames(rep(list(0), length(nm1)), nm1)
data.sample %>% 
  group_by(score_label, treatment) %>% 
  complete(score = unique(data.sample$score), fill = fillcols)
...