R Data.Table 检查组条件

Question

data=data.frame("StudentID" = c(1,1,1,2,2,2,3,3,3),
"Grade"=c(1,2,3,1,2,3,1,2,3),
"Score" = c(1,2,5,2,4,3,1,2,2))

我有“数据”，想在哪里制作“数据1”

data1=data.frame("StudentID" = c(1,1,1,2,2,2,3,3,3),
"Grade"=c(1,2,3,1,2,3,1,2,3),
"Score" = c(1,2,5,2,4,3,1,2,2),
"Flag"=c(0,0,0,1,1,1,2,2,2))

Flag 的作用是表明Grade 处的Score 是否有StudentID 处的G 高于G-1。换句话说，我们预计分数只会随着年级的增加而上升。

• 如果有任何Score 值随着Grade 变高而下降，则Flag 等于1。并列分数应以2 表示。
• 如果学生在Grade、2 和3 中的得分为2，则为Flag == 2。
• 如果Scores 仅随着Grade 的上升而上升，那么Flag == 0。

  ---

使用@akron 完美答案，library(data.table) setDT(data)[, flag := fifelse(any(diff(Score) 0, 2, 0)) , .(StudentID)]

现在说我有一个学生的标志 2。如何通过加 1 更新他们的 SECOND 连续分数。

使用上面的data1

data1=data.frame("StudentID" = c(1,1,1,2,2,2,3,3,3),
"Grade"=c(1,2,3,1,2,3,1,2,3),
"Score" = c(1,2,5,2,4,3,1,2,2),
"Flag"=c(0,0,0,1,1,1,2,2,2),
"Score2" = c(1,2,5,2,4,3,1,2,3))

Answer 1

我们转换为'data.table'（setDT，按'StudentID'分组，使用fifelse通过检查'Score'中的anydifference小于0来创建'flag'（基本上检查值减少的情况），将其指定为1，如果有任何重复，则为2，其余为0

library(data.table)
setDT(data)[, flag := fifelse(any(diff(Score) < 0), 1, 
      fifelse(anyDuplicated(Score) > 0, 2, 0)) , .(StudentID)]

对于更新的案例

setDT(data1)[Score2 := Score][Flag == 2, Score2 := seq(Score[1], 
          length.out = .N, by = 1), StudentID]

---

或dplyr

library(dplyr)
data %>% 
  group_by(StudentID) %>% 
  mutate(flag = case_when(any(diff(Score) < 0) ~ 1,  
                anyDuplicated(Score) > 0 ~ 2,  TRUE ~ 0))