Wie schreibe ich eine neue Spalte, die von gruppierten Zeilen in R abhängig ist?

Question

Ich habe einen Datenrahmen wo jeder Artikel hat drei Kategorien (a, b, c) und eine numerische Antwort für jede Kategorie wird aufgezeichnet (entweder 0 oder 1). Ich möchte eine neue Spalte abhängig von den Zeilen in der Spalte Antwort erstellen. Dies ist, wie meine Datenrahmen wie folgt aussehen:

Item  <- rep(c(1:3), each=3) 
Option <- rep(c('a','b','c'), times=3) 
Answer <- c(1,1,0,1,0,1,1,1,1) 
df  <- data.frame(Item, Option, Answer) 


    Item Option Answer 
1 1  a  1 
2 1  b  1 
3 1  c  0 
4 2  a  0 
5 2  b  0 
6 2  c  1 
7 3  a  1 
8 3  b  1 
9 3  c  1 

Was benötigt wird: wenn die drei Kategorien in der Option Spalte 1 sind, die New Spalte einen 1. In jedem anderen Fall erhalten soll, die Säule sollte ein 0. Die gewünschte Ausgabe sollte wie folgt aussehen:

Item Option Answer New 
1 1  a  1 0 
2 1  b  1 0 
3 1  c  0 0 
4 2  a  0 0 
5 2  b  0 0 
6 2  c  1 0 
7 3  a  1 1 
8 3  b  1 1 
9 3  c  1 1 

ich habe versucht, dies zu erreichen, ohne eine Schleife, aber ich blieb stecken, weil ich weiß nicht, wie ein neues Spalte kontingente auf einem machen Gruppe von Zeilen, nicht nur als ein eins. Ich habe versucht this solution, aber es funktioniert nicht, wenn die Zeilen nicht in Paaren gruppiert sind.

Haben Sie Vorschläge? Vielen Dank!

Answer 1

Dies sollte funktionieren:

df %>% 
    group_by(Item)%>% 
    mutate(New = as.numeric(all(as.logical(Answer)))) 

Answer 2

data.table

DT <- data.table(Item, Option, Answer) 
DT[, Index := as.numeric(all(as.logical(Answer))), by= Item] 
DT 

    Item Option Answer Index 
1: 1  a  1  0 
2: 1  b  1  0 
3: 1  c  0  0 
4: 2  a  1  0 
5: 2  b  0  0 
6: 2  c  1  0 
7: 3  a  1  1 
8: 3  b  1  1 
9: 3  c  1  1 

Answer 3

verwenden oder nur base R

df$Index <- with(df, +(ave(!!Answer, Item, FUN = all))) 
df$Index 
#[1] 0 0 0 0 0 0 1 1 1