Caros, boa noite,

Eu usei a função dcast() para reorganizar meu data frame pois meu objetivo era calcular a media do volume por hora. Eu tinha:
 
AA1
data  hora preco volume horaid
1 01.07.2004 09:31 51.37  27900      1
2 01.07.2004 09:32 51.32    100      2
3 01.07.2004 09:33 51.45    700      3

e fiz ficar:
require(reshape2)
AA2 <- dcast(AA, data~hora, value.var='volume')  


head(AA2[,1:8], 3)
#        data  09:31 09:32 09:33 09:34 09:35 09:36 09:37
# 1 2004-07-01  27900   100   700  1000   800  3000  1600
# 2 2004-07-02 145400   500    NA   500  6900    NA  4400
# 3 2004-07-06   3200  2300  3800  1500    NA  1100  3700

Porém, quero dividir o meu volume de AA1 pela media por hora de AA2, ou seja, para todos os volumes de 09:31 de AA1, quero dividir pela média de AA2[,2](media do volume da hora 09:31).

Eu consigo fazer isso no formato de AA2: seria AA2[,2]/mean(AA2[,2]).Porém, eu quero que fique no formato de AA1.

Alguém saberia me dar uma dica como eu devo proceder? Como a quantidade de horários e cada dia são diferentes, não consigo fazer de uma forma mais simples.

Muito obrigada,

Michelle