计算变异行数 dplyr

【问题标题】：counting number of mutated rows dplyr计算变异行数 dplyr
【发布时间】：2017-10-27 17:02:55
【问题描述】：

如何计算 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"))

如何提取已变异的行数/数量？

【问题讨论】：

【解决方案1】：

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

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

完整的代码是

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

【讨论】：