R 独家新闻不会给出同样的结果

我想提出：

  nrow(filter(dataframe, fracture_type_1 == 1)) +
  nrow(filter(dataframe, fracture_type_2 == 1)) +
  nrow(filter(dataframe, fracture_type_3 == 1)) +
  nrow(filter(dataframe, fracture_type_4 == 1)) +
  nrow(filter(dataframe, fracture_type_5 == 1)) 

---

但是它们不会给出相同的结果

如果您想要一个与第一次尝试类似的输出，它将是：

nrow(filter_at(dataframe, vars(starts_with("fracture_type_")), any_vars(.==1)))

library(dplyr)

dataframe %>%
    summarise(total = sum(select(., starts_with("fracture_type_")) == 1))