Possuo um data frame cujas colunas possuem datas (%Y/%m/%d), horários e médias por hora ao longo de 4 meses (01/01/2020 - 01/04/2020). Desejo saber como eu poderia calcular a média desses valores horários, para cada dia, fazendo uso do pipe operator (%>%) ou de outra forma mais rápida. Vejam o meu código abaixo:
library(tidyverse)
library(lubridate)
head(dados)
Data Hora Nome.Parâmetro Unidade.Medida Média.Horária
1 2020-01-03 01:00 MP10 (Partículas Inaláveis) µg/m3 12
2 2020-01-03 02:00 MP10 (Partículas Inaláveis) µg/m3 13
3 2020-01-03 03:00 MP10 (Partículas Inaláveis) µg/m3 4
4 2020-01-03 04:00 MP10 (Partículas Inaláveis) µg/m3 7
5 2020-01-03 05:00 MP10 (Partículas Inaláveis) µg/m3 16
6 2020-01-03 06:00 MP10 (Partículas Inaláveis) µg/m3 11
Executei o seguinte comando:
head(dados %>%
group_by(Data) %>%
summarise(med_dia = mean(dados$Média.Horária))
)
Data med_dia
<date> <dbl>
1 2020-01-03 22.8
2 2020-01-04 22.8
3 2020-01-05 22.8
4 2020-01-06 22.8
5 2020-01-07 22.8
6 2020-01-14 22.8
Após executar o código acima, eu esperava o cálculo de médias horárias por dia. Entretanto, o comando faz a soma de todas as colunas indiscriminadamente e repete o valor em todas as linhas.
mean(dados$Média.Horária)
tente remover o nome da base,mean(Média.Horária)
.dput(dados)
ou, se a base for muito grande, dedput(head(dados, 20))
?