使用if和while循环条件进行查询

Question

我有变量名称样本

post12new12
new12alone12asdas
second12one
thirdone

我想查询样品是否有一个“12”然后i = 0而样品有多个'12'然后i = i + 1

如何在r中使用while和if条件。

I have used gregexpr("12",sample)

Answer 1

我们可以尝试

library(stringr)
sapply(str_extract_all(v1, "\\d+"), function(x) {
             i1 <- x==12
  if(length(i1)>0) as.integer(sum(i1)>1) else NA})
#[1]  1  1  0 NA

数据

v1 <- c("post12new12", "new12alone12asdas", "second12one", "thirdone")

Answer 2

使用str_count

中的stringr

library(stringr)
ifelse(str_count(v1, '12') == 1, 0, ifelse(str_count(v1, '12') > 1, 1, NA))
#[1]  1  1  0 NA