# Create simulation data
mydata <- data.frame(ace1 = rpois(100, 1),
                     ace2 = rpois(100, 1),
                     ace3 = rpois(100, 1),
                     race = sample(c(1:7), 100, replace = T))
# Select target data
targetdata <- dplyr::filter(mydata, race == 5, ace1 == 1, ace2 == 1)

install dplyr package first, if you have not installed it. To install the package, type:  install.packages('dplyr')

十分感谢！方法十分好用！我还有一个问题，望您不吝赐教。如果现在没有race这一列，直接让找出既符合ace1为1又符合ace2为1的数据，请问代码该如何写？

data%>%dplyr::filter_all(.,all_vars(.==1))%T>%str%>%data_S

data%>%dplyr::filter_all(.,all_vars(.==1))%T>%str->data_S
前面那个有误，以这个为准

Delete "race==5 "