Essa questão é após uma colocada por mim há pouco tempo. Esse é o link se quiserem acompanhar r - média de uma variável em relação aos valores de outra variável em um data frame
Tenho um dataframe com várias colunas. Como faço para calcular a média de uma das variáveis com base nos valores de outra variável dentro de um agrupamento de uma das colunas? Ou seja, tenho a frequência de várias espécies encontradas em 4 campanhas divididas em 2 etapas e quero calcular a média de cada espécie registrada em cada local dentro de cada etapa, sendo a média realizada com as campanhas daquela etapa. Ou seja, a média da frequência das espécies é com base em todas as campanhas realizadas dentro daquela etapa e não com base somente nas campanhas em que há o registro da espécie ou com base em TODAS as campanhas, não importando a etapa. o script que estou usando com base na ajuda de vocês é esse
#somar todos os registros de cada sp no local em cada campanha.
dados_anura = dados_sapo %>%
group_by(etapa, campanha, local, especie) %>%
summarise(sum(frequencia))
## Vou lá na tabela e troco o nome da coluna "sum(frequencia)" por frequencia
write.table(dados_anura, 'dados_anura.csv', sep = ';', row.names = F)
# Salvo e chamo aqui de novo
dados_anuras <- read.csv("dados_anura.csv", header = TRUE, sep=";")
#média com base em todas as campanhas mesmo que não haja registro da espécie.
# calcular as médias das campanhas agrupadas por especie e local, com todas as campanhas e não só aquelas em que há registro da espécie.
# Definir uma função mediaCamp que faça esses cálculos.Depois, usa-se mais uma vez o aggregate.
mediaCamp <- function(x){
ncamp <- length(unique(dados_anuras$campanha))
sum(x)/ncamp
}
dadomean4 <- aggregate(frequencia ~ etapa, local + especie, dados_anuras, mediaCamp)
### Para retirar os NA's
dadomean4[is.na(dadomean4)] <- 0
Mas o resultado está dando errado. Dessa forma, o cálculo da média é com base em TODAS as campanhas, e não com base nas campanhas somente daquela etapa, mesmo dando o valor (na célula) para aquela etapa.
etapa campanha local especie frequencia
A1 1 A aa 1
A1 1 A bb 2
A1 1 A cc 1
A1 1 B bb 1
A1 1 B dd 7
A1 2 A aa 50
A1 2 A bb 1
A1 2 A dd 8
A2 3 A aa 2
A2 3 B aa 3
A2 3 B dd 3
A2 4 A aa 33
A2 4 A bb 5
A2 4 A cc 1
A2 4 A dd 1
A2 4 B aa 18
A2 4 B bb 10
A2 4 B dd 6