R: Calcular medias para el subconjunto de un grupo

Quiero calcular la media para cada "Día" pero para una parte del día (Tiempo = 12-14). Este código funciona para mí, pero tengo que ingresar cada día como una nueva línea de código, que equivaldrá a cientos de líneas.

Esto parece que debería ser simple de hacer. Lo hice fácilmente cuando las variables de agrupación son las mismas, pero no sé cómo hacerlo cuando no quiero incluir todos los valores del día. ¿Hay una mejor manera de hacer esto

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)

Así es como se ven los datos:

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

Respuestas a la pregunta(6)

Su respuesta a la pregunta