Once again we assume that you've got the dataframe set up appropriately.
library(tidyverse)
# This command makes sure that the chickweight dataframe is clean.
df <- ChickWeight %>% ungroup() %>% as.data.frame()
You can clearly define how you filter your rows by using the filter verb.
df %>% filter(Diet == 3)