计算变异行数dplyr

Question

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

假设我正在对列执行mutate操作并有条件地更改某些行中的值。特别是我使用了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"))

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

Answer 1

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

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

完整的代码将是

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