Jak obliczyć średnią obciętą w r (z przykładami)

Średnia obcięta to średnia ze zbioru danych, która została obliczona po usunięciu określonego procentu najmniejszych i największych wartości w zbiorze danych.

Na przykład 10% średnia obcięta będzie reprezentować średnią zbioru danych po usunięciu najmniejszych 10% wartości i największych 10% wartości.

Najprostszym sposobem obliczenia średniej obciętej w R jest użycie następującej podstawowej składni:

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

Poniższe przykłady pokazują, jak w praktyce wykorzystać tę funkcję do obliczenia średniej obciętej.

Przykład 1: Oblicz średnią obciętą wektora

Poniższy kod pokazuje, jak obliczyć 10% średnią obciętą dla wektora danych:

 #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

10% średnia obcięta wynosi 12,375 .

Jest to średnia ze zbioru danych po usunięciu ze zbioru najmniejszych 10% i największych 10% wartości.

Przykład 2: Oblicz średnią obciętą kolumny w ramce danych

Poniższy kod pokazuje, jak obliczyć 5% średnią obciętą dla określonej kolumny w ramce danych:

 #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

5% średnia obcięta wartości w kolumnie „punkty” wynosi 20,25 .

Jest to średnia z kolumny „punkty” po odjęciu 5% najmniejszych i 5% największych wartości.

Przykład 3: Oblicz średnią obciętą wielu kolumn

Poniższy kod pokazuje, jak obliczyć 5% średnią obciętą dla wielu kolumn w ramce danych:

 #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 

Z wyniku możemy zobaczyć:

• 5% średnia obcięta w kolumnie „punkty” wynosi 20,25 .
• 5% średnia obcięta w kolumnie „asysty” wynosi 7,75 .

Powiązane: Przewodnik po Apply(), lapply(), sapply() i tapply() w R

Dodatkowe zasoby

Poniższe samouczki zawierają dodatkowe informacje na temat średnich obciętych:

Jak ręcznie obliczyć średnią obciętą
Jak obliczyć średnią obciętą w Pythonie
Kalkulator średniej obciętej