data <- data %>% filter(old_fracture<=21& old_fracture>0)

这段代码使用了管道操作符 `%>%` 和 `filter()` 函数对数据进行筛选，只保留了 `old_fracture` 列中值在 0 到 21 之间的行。具体来说，`%>%` 将左侧的数据框作为第一个参数传递给右侧的函数，`filter()` 函数用于按照指定条件筛选行，`old_fracture<=21& old_fracture>0` 则是筛选条件，表示只保留 `old_fracture` 列中值在 0 到 21 之间的行。最终，筛选后的数据框被赋值给原来的 `data` 对象。