代码之家 › 专栏 › 技术社区 › rnorouzian

基于data.frame中的唯一id值捕获错误

error-handling function dataframe r

rnorouzian · 技术社区 · 3 年前

我想创建一个 stop() 对于我的data.frame下面这样对于每个 id ,如果 pos 是变化的(例如,由1、2等组成),则 mp 所属行的值 cont==TRUE

这在R中可能吗?

id == "B" 销售时点情报系统 mp公司 值(即,1,3),用于 cont==真 都不一样。

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."

1 回复 | 直到 3 年前

akrun 3 年前

在 base R split 数据的子集,即“cont”由“id”变为真 list . 然后再绕一圈 列表 names 的 列表 在里面 Map ,检查 if 这个 unique 行多于一行,则调用 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."

推荐文章

eXor420 · 如何在脚本标记中使用导出的函数?

1 年前

Tridip Lodh · 在ES6中,JAVASCRIPT函数在“严格使用”模式下的行为如何?[已关闭]

1 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

D_K · R获取新表

2 年前

ramanujans alkhazarim · 错误“元素类型无效”React Native

2 年前

CodexSC · 如何从另一个函数打印字符串?

2 年前

Matthew Graham · 我应该如何以编程方式仅将某些NA值更改为在R中选择的指定字符串?

2 年前

Anar · Oracle SQL用户定义函数

2 年前

Troskyvs · 映射比较函数导致运行时“bad\u function\u call”

2 年前

Alireza Pirmahdi · 我的代码多次执行打印语句,我只想执行一次

2 年前