r计数器不计数整数（0）

Question

我一直在尝试解决这个问题，但无法成功尝试任何尝试，在互联网上找到的解决方案也无法正常工作。

我有超过500k行的这类数据集。

示例子集：

subset= as.data.frame(matrix(c(9,9,9,0,2,9,0,9,9,1,0,2,9,9,9,0,0,0,2,2,2,1,1,1),ncol = 3, byrow = T))

每个列都是一个单独的，每个行都是一个特定标记，带有“ 0,1，”， 2“这意味着它并不缺少该行的数据（当然具有其他含义，但在这里没有必要解释）和“ 9”意味着它缺少该行的数据。 我将与引号一样写数字，以保持清晰的查看，但是数据集中是数字。

我要做的是计算至少一个示例中的一个行不丢失。 因此，在所有由“ 9” s组成的行中，计数器不会增加。如果至少一个单元格在某个行中不是9个，则计数器会增加一个。

尝试了一段时间后，我写了此代码：

counter=0

test = apply(subset, 1,  function(i) {
  if(length(which(subset[i,] !=9)) != 0){
    counter=counter+1
  }
  print(counter)
  assign("counter",counter,envir = .GlobalEnv)
})

当我这样做时，当唯一的单元格时，计数器不会增加/或不是“ 9”的单元格是整数（0）。例如，在我上传的图片中，第9行 由许多“ 9” S和一个整数组成（0）。计数器不会在这一行中增加，但我也必须计算出来。

为了克服这一点，我尝试了不同的事情，包括：

1-放置相同的长度（length（whe（虚拟[i，] == 0）），integer（0）），all（） ，并且尝试了各种如果其他语句。我还尝试了各种我不记得的方式，试图计算整数（0）。

2-将9个更改为na /更改整数（0），例如3。这都改变了环的机理，现在无论行中的单元格中如何，计数器都会增加一个。

3-使用如果有条件（条件＆lt; 9*ncol（subset）），我认为这会给出结果（如果不丢失任何一个/9它将小于9*ncol），但再次将其视为整数（0），没有任何变化。

4-尝试查找结果在哪里“零”无法使用，因为我在开始中编写的代码给出了丢失的数据“ 9” s（零）的结果相同。我只希望丢失的结果在柜台外。

如果有人可以在此问题上提供帮助，这将不胜感激。由于Stackoverflow希望使评论部分从感谢消息中保持清洁，因此我想提前感谢所有人。

Answer 1

据我所知，您想计算至少有一个值不同的行数的行数。有很多方法可以做到这两个替代方法。

使用dplyr，

您可以使用dplyr这样做：

library(dplyr)

# Your provided data
subset %>% 
  filter(if_any(everything(), ~ .x != 9)) %>% 
  nrow()
#> [1] 6

^{在2022-05-29上由 reprex软件包（v2.0.1）}

in filter（if_any（avethert（），〜.x！= 9））），filter（）删除至少一个值不等于9的行。之后，我们只计算行。

使用apply（），

如果要使用应用程序，则可以执行以下操作：

sum(
  apply(
    subset, 
    MARGIN = 1, 
    function(x) {
      any(x != 9)
    }
  )
)
#> [1] 6

^{在2022-05-29上创建的 preprex package （v2.0.1）}

在此处，我在每一行subset with apply> apply（）和检查该行的任何值是否与9不相等。这返回true/false的向量。我们sum（）该向量以找到至少一个值不同的行总数。

Answer 2

这是我最容易理解的选择。您可以根据其他变量创建一个带有值的附加列计数器。 case_when函数检查列的值，如果找到9，则在Counter列中放置0。如果在您的任何列中找不到9个，它将返回1。然后，您可以将Counter列总结以检查没有九个的行的总数。

library(dplyr)
subset <- as.data.frame(matrix(c(9, 9, 9, 0, 2, 9, 0, 9, 9, 1, 0, 2, 9, 9, 9, 0, 0, 0, 2, 2, 2, 1, 1, 1), ncol = 3, byrow = T))
subset <- subset %>%
  mutate(counter = case_when(
    V1 == 9 ~ 0,
    V2 == 9 ~ 0,
    V3 == 9 ~ 0,
    TRUE ~ 1
  ))
number_of_full_rows <- sum(subset$counter)

如果您确定理解基本版本，则可以缩短它，因此您不必命名所有列。

library(dplyr)
subset <- as.data.frame(matrix(c(9, 9, 9, 0, 2, 9, 0, 9, 9, 1, 0, 2, 9, 9, 9, 0, 0, 0, 2, 2, 2, 1, 1, 1), ncol = 3, byrow = T))
subset <- subset %>%
  mutate(counter = case_when(
    if_any(.fns = ~ .x == 9) ~ 0,
    TRUE ~ 1
  ))
number_of_full_rows <- sum(subset$counter)