R: Вычислить среднее для подмножества группы

Я хочу вычислить среднее значение для каждого «дня», но для части день (время = 12-14). Этот код у меня работает, но я должен вводить каждый день новую строку кода, которая будет состоять из сотен строк.

Кажется, это должно быть просто. Я сделал это легко, когда группирующие переменные одинаковы, но не знаю, как это сделать, когда я не хочу включать все значения за день. Есть ли лучший способ сделать это?

sapply(sap[sap$Day==165 & sap$Time %in% c(12,12.1,12.2,12.3,12.4,12.5,13,13.1,13.2,13.3,13.4,13.5, 14), ],mean)

sapply(sap[sap$Day==166 & sap$Time %in% c(12,12.1,12.2,12.3,12.4,12.5,13,13.1,13.2,13.3,13.4,13.5, 14), ],mean)

Вот как выглядят данные:

Day Time    StomCond_Trunc
165 12      33.57189926
165 12.1    50.29437636
165 12.2    35.59876214
165 12.3    24.39879768