1. library(tidyfst)
    2. library(survival)  # 加载数据集所需的包
    3. data("colon") # 加载数据集
    5. # 单条件筛选
    6. filter_dt(colon, sex == 1)  # 筛选colon数据集中男性患者
    8. # 多条件筛选
    9. # 筛选≥50岁的男性患者
    10. filter_dt(colon,sex==1 & age>=50)
    12. # 筛选男性或年龄≥50岁的患者
    13. filter_dt(colon, sex == 1 | age >= 50)
    15. # 筛选age中大于age平均值的行
    16. colon %>% filter_dt(age > mean(age, na.rm = TRUE)) 
    18. # 筛选男性中age大于age平均值的行
    19. colon %>% filter_dt(sex == 1 & age > mean(age, na.rm = TRUE))
    21. # 筛选 50 ≤ age < 60的患者
    22. filter_dt(colon, age >= 50 & age < 60)
    23. # 筛选 50 ≤ age ≤ 60的患者
    24. colon %>% filter_dt(between(age,50,60))
    26. # 筛选肿瘤分化程度differ为1和2，且性别为男性的行
    27. colon %>% filter_dt(differ %in% c(1,2), sex == 1)
    30. # 筛选不同性别中年龄大于各自性别的年龄平均值的行  
    31. colon %>% 
    32.   group_dt(
    33.     by = sex,
    34.     filter_dt(age > mean(age, na.rm = TRUE))
    35.   )
    38. iris %>% filter_dt(Sepal.Length == max(Sepal.Length))