Произвольная выборка подмножеств переменной кадра данных

Я работаю над большим набором данных, который включает данные о поведении в поездках за недельный период. В течение недели люди заполняли журнал отдельных поездок, которые они совершили в течение этой недели. Физические лица идентифицируются по уникальному идентификационному номеру (ID). Я хочу просто выбрать данные дневника за два дня (которые могут включать одну или несколько поездок) из еженедельных данных, доступных для каждого уникального идентификатора, и поместить их в новый фрейм данных. Пример фрейма данных подробно описан ниже:

Df1 <- data.frame(ID = c(1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3), 
                  date = c("1st Nov", "1st Nov", "3rd Nov", "4th Nov","4th Nov","5th Nov","2nd Nov", "2nd Nov", "3nd Nov", "4th Nov","5th Nov","5th Nov","2nd Nov", "2nd Nov", "3nd Nov", "4th Nov","5th Nov"))

Любая помощь по вышеуказанному будет принята с благодарностью.

Большое спасибо,

Кэти