代码之家 › 专栏 › 技术社区 › mr.T

将所有逻辑规则与向量按相同顺序匹配

rules sequence r

mr.T · 技术社区 · 5 年前

我有一个取两个向量的函数

逻辑规则的向量 pat
数据向量 dat

该函数检查所有规则是否已执行且顺序正确

dat <- 1:100
pat <- c( "dat<4 & dat>2", "dat>6", "dat>99" )

yes.seq.rule <- function(pat , dat){
  lv <- rep(F,length(pat))
  k <- 1
  for(i in 1:length(dat)){
      res <- eval(parse(text = pat[k]))[i]
      if(res) 
      {
        lv[k] <- TRUE
        k <- k+1 
      }
    if(k==length(pat)+1) break
  }
  return(  all(lv)  )
}

该函数返回true/false

here 完全相同的问题是用完全相同的函数问的,唯一的区别是在这个问题中向量 拍打

1 回复 | 直到 5 年前

akrun 5 年前

这里有一个选项,它只在表达式上循环,而不是在数据上循环

f1 <- function(pat, dat) {
   tmp_lst <- lapply(pat, function(x) {
            i1 <- eval(parse(text = x))
              if(any(i1)) min(which(i1))
       })
   if(!any(sapply(tmp_lst, is.null))) {
        tmp <- unlist(tmp_lst)
        identical(tmp, sort(tmp))
    } else FALSE
 }
   

f1(pat, dat)
#[1] TRUE

环游世界 pat lapply eval 去吧,去拿 min imum索引,在只有 FALSE 案例,即如果有任何模式返回所有FALSE,则结果为FALSE, unlist 并检查它是否正确 identical 和 sort

基准

pat <- c( "dat<4 & dat>2", "dat>6", "dat>199", "dat>1e7" )
dat <- 1:1000000
system.time(f1(pat, dat))
#  user  system elapsed 
# 0.036   0.005   0.042

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前