问题描述
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))