计算突变行数 dplyr

Question

如何计算 dplyr 中的变异行数？

假设我正在对列执行变异操作并有条件地更改某些行中的值。特别是我使用了 stringr 包中的 mutate(df,columnn = str_replace_all(column, "a", "A") 来有条件地改变 tibble 中的某些行。

这是一个例子：

library(dplyr)
library(stringr)
library(ggplot2)
diamonds %>%
  mutate(cut = str_replace_all(cut, "a", "A"))

我怎样才能提取 count/number 行发生了变化？

Answer 1

您可以将变异的行与原始行进行比较。例如，将以下内容添加到链的末尾，您将获得更改的行数：

... %>% { sum(.$cut != diamonds$cut) }
# [1] 23161

完整代码为

diamonds %>%
    mutate(cut = str_replace_all(cut, "a", "A")) %>%
    { sum(.$cut != diamonds$cut) }
# [1] 23161

counting number of mutated rows dplyr