搜索并逐行查找数据帧 [英] Search and find values row-wise a dataframe

问题描述

我的数据框如下所示：

  x1<  -  c（a，c，f ，j）
 x2 < -  c（b，c，g，k）
 x3<  -  c（b，d h，NA）
 x4 <-C（a，e，i，NA）
 df<  -  data.frame（x1，x2，x3，x4，stringsAsFactors = F）
 
 df 
 
 x1 x2 x3 x4 
 1 abba 
 2 ccde 
 3 fghi 
 4 jk< NA> < NA> 
  

现在我有一个任意的向量：

  vec < -  c（a，i，s，t，z）
  

我想将向量值与数据帧中的每一行进行比较，并创建一个附加列，指示是否找到至少一个向量值。 / p>

生成的数据框应如下所示：

  x1 x2 x3 x4 valueFound 
 1 abba 1 
 2 ccde 0 
 3 fghi 1 
 4 jk< NA> < NA> 0 
  

我想做没有循环。非常感谢您的支持！

Rami

解决方案

一种方式：

  df $ valueFound<  -  apply（df，1，function（x）{
 if（any（x％in％vec））{
 1 
} else {
 0 
} 
}）
 ## 
> df 
 x1 x2 x3 x4 valueFound 
 1 a b b a 1 
 2 c c d e 0 
 3 f g h i 1 
 4 j k< NA> < NA>感谢@David Arenburg和@CathG，一些更简洁的方法：
 
 
 
 
 
  apply（df，1，function（x）any（x％in％vec）+ 0） 
 
 
  apply（df，1，function（x）as.numeric（any（x％in％vec））） 
 
 
 
 
 
只是为了好玩，还有一些其他有趣的变体：
 
 
 
 
 
  apply（df，1，function（x）any（x％in％vec）％/％TRUE） 
 
 （df，1，function（x）cumprod（any（x％in％vec）））  
 
 
My dataframe looks like this:
x1 <- c("a", "c", "f", "j")
x2 <- c("b", "c", "g", "k")
x3 <- c("b", "d", "h", NA)
x4 <- c("a", "e", "i", NA)
df <- data.frame(x1, x2, x3, x4, stringsAsFactors=F)

df

x1 x2   x3   x4
1  a  b    b    a
2  c  c    d    e
3  f  g    h    i
4  j  k <NA> <NA>
Now I have an arbitrary vector:
vec <- c("a", "i", "s", "t", "z")
I would like to compare the vector values with  each row in the dataframe and create an additional column that indicates whether at least one of the vector values was found or not.

The resulting dataframe should look like this:
  x1 x2   x3   x4 valueFound
1  a  b    b    a          1
2  c  c    d    e          0
3  f  g    h    i          1
4  j  k <NA> <NA>          0
I would like to do it without looping. Thank you very much for your support!

Rami
解决方案
Here's one way to do this:
df$valueFound <- apply(df,1,function(x){
  if(any(x %in% vec)){ 
    1 
  } else {
    0
  }
})
##
> df
  x1 x2   x3   x4 valueFound
1  a  b    b    a          1
2  c  c    d    e          0
3  f  g    h    i          1
4  j  k <NA> <NA>          0
Thanks to @David Arenburg and @CathG, a couple of more concise approaches:


apply(df, 1, function(x) any(x %in% vec) + 0)
apply(df, 1, function(x) as.numeric(any(x %in% vec)))


Just for fun, a couple of other interesting variants:


apply(df, 1, function(x) any(x %in% vec) %/% TRUE)
apply(df, 1, function(x) cumprod(any(x %in% vec)))


                        
这篇关于搜索并逐行查找数据帧的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！