根据 data.frame 中的唯一 id 值捕获错误

Question

我想为下面的data.frame 创建一个stop()，这样对于每个唯一的id，如果pos 是变化的（例如，由1s、2s 等组成），那么，如果@987654324 cont==TRUE 不同的行的@ 值，我们应该抛出一个错误。

这在 R 中可能吗？

在下面的玩具示例中，id == "B" 应该抛出一个错误，因为 pos 是变化的 (1,2,3)，而 mp 的值 (即 1,3) 对应于 @987654329 的行@ 不一样。

dat <- data.frame(id = rep(c("A","B"),2:3), mp = c(1,5, 2,1,3), cont = c(F,T, F,T,T), pos = c(1,1, 1:3))
#  id mp  cont pos
#1  A  1 FALSE   1
#2  A  5  TRUE   1
#3  B  2 FALSE   1
#4  B  1  TRUE   2
#5  B  3  TRUE   3

# Desired stop() message:
"Error: 'B' has a wrong value."

Answer 1

在base R 中，一种选择是将split 数据子集，即通过'id' 将'cont' 为TRUE 转换为list。然后在Map 中循环list 和list 的names，检查if 和unique 行有超过1 行，然后调用stop

lst1 <- split(dat[dat$cont,c("mp", "pos")], dat$id[dat$cont])
Map(function(x, y) if(nrow(unique(x)) > 1)  
     stop(sprintf("'%s' has a wrong value.", y), call. = FALSE), 
        lst1, names(lst1))
#Error: 'B' has a wrong value.

---

使用更新的示例

lst1 <- split(dat[dat$control, c("mpre", "post")], dat$study.name[dat$control])
Map(function(x, y) if(all(lengths(lapply(x, unique))  > 1))  
      stop(dQuote(sprintf("'%s' has a wrong value.", y), FALSE), call. = FALSE), 
         lst1, names(lst1))
#Error: "'Brown' has a wrong value."