Como calcular uma média aparada em r (com exemplos)

Uma média aparada é a média de um conjunto de dados que foi calculada após a remoção de uma porcentagem específica dos menores e maiores valores do conjunto de dados.

Por exemplo, uma média aparada de 10% representaria a média de um conjunto de dados após a remoção dos menores 10% dos valores e dos maiores 10% dos valores.

A maneira mais simples de calcular uma média aparada em R é usar a seguinte sintaxe básica:

 #calculate 10% trimmed mean
mean(x, trim= 0.1 )

Os exemplos a seguir mostram como usar esta função para calcular uma média aparada na prática.

Exemplo 1: Calcule a média aparada do vetor

O código a seguir mostra como calcular uma média aparada de 10% para um vetor de dados:

 #define data
data = c(22, 25, 29, 11, 14, 18, 13, 13, 17, 11, 8, 8, 7, 12, 15, 6, 8, 7, 9, 12)

#calculate 10% trimmed mean
mean(data, trim= 0.1 )

[1] 12,375

A média aparada de 10% é 12,375 .

Esta é a média do conjunto de dados após os 10% menores e os 10% maiores dos valores terem sido removidos do conjunto de dados.

Exemplo 2: Calcule a média aparada da coluna no quadro de dados

O código a seguir mostra como calcular uma média aparada de 5% para uma coluna específica em um quadro de dados:

 #create data frame
df = data. frame (points=c(25, 12, 15, 14, 19, 23, 25, 29),
                assists=c(5, 7, 7, 9, 12, 9, 9, 4),
                rebounds=c(11, 8, 10, 6, 6, 5, 9, 12))

#calculate 5% trimmed mean of points
mean(df$points, trim= 0.05 )

[1] 20.25

A média aparada de 5% dos valores da coluna “pontos” é 20,25 .

Esta é a média da coluna “pontos” após a remoção dos 5% menores e 5% dos maiores valores.

Exemplo 3: Calcule a média aparada de múltiplas colunas

O código a seguir mostra como calcular uma média aparada de 5% para múltiplas colunas em um quadro de dados:

 #create data frame
df = data. frame (points=c(25, 12, 15, 14, 19, 23, 25, 29),
                assists=c(5, 7, 7, 9, 12, 9, 9, 4),
                rebounds=c(11, 8, 10, 6, 6, 5, 9, 12))

#calculate 5% trimmed mean of points and assists
sapply(df[c(' points ', ' assists ')], function (x) mean(x, trim= 0.05 ))

 assist points 
  20.25 7.75 

Pelo resultado podemos ver:

• A média aparada de 5% da coluna “pontos” é 20,25 .
• A média aparada de 5% da coluna “assistências” é 7,75 .

Relacionado: Um guia para apply(), lapply(), sapply() e tapply() em R

Recursos adicionais

Os tutoriais a seguir fornecem informações adicionais sobre médias aparadas:

Como calcular manualmente uma média aparada
Como calcular uma média aparada em Python
Calculadora de média aparada