2
  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))

I want to make :

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

but they dont give the same outcome

Louise de Haas
  • 23
  • 3

1 Answers1

1

If you want an output which is similar to your first attempt it would be :

library(dplyr)

dataframe %>%
    summarise(total = sum(select(., starts_with("fracture_type_")) == 1))
Ronak Shah
  • 286,338
  • 16
  • 97
  • 143