library(dplyr)

# انتخاب ستون‌ها و فیلتر داده‌ها
mtcars %>%
  select(mpg, cyl, hp) %>%
  filter(cyl == 6)