> frequency_table % + filter(cyl %in% c(4, 6)) %>% + group_by(cyl) %>% + summarise(count = n()) > print(frequency_table) # A tibble: 2 2 cyl count

> frequency_table <- data_cars %>% + filter(cyl %in% c(4, 6)) %>% + group_by(cyl) %>% + summarise(count = n()) > print(frequency_table) # A tibble: 2 2 cyl count 1 4 11 2 6 7