Cara menghitung rata-rata terpangkas dalam r (dengan contoh)

Rata-rata yang dipangkas adalah rata-rata kumpulan data yang telah dihitung setelah menghilangkan persentase tertentu dari nilai terkecil dan terbesar dalam kumpulan data tersebut.

Misalnya, rata-rata terpangkas 10% akan mewakili rata-rata kumpulan data setelah menghilangkan 10% nilai terkecil dan 10% nilai terbesar.

Cara paling sederhana untuk menghitung mean terpangkas di R adalah dengan menggunakan sintaks dasar berikut:

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

Contoh berikut menunjukkan cara menggunakan fungsi ini untuk menghitung rata-rata terpangkas dalam praktiknya.

Contoh 1: Hitung Rata-Rata Terpangkas dari Vektor

Kode berikut menunjukkan cara menghitung rata-rata terpangkas 10% untuk vektor data:

 #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

Rata-rata yang dipangkas 10% adalah 12,375 .

Ini adalah rata-rata kumpulan data setelah 10% nilai terkecil dan 10% terbesar dihilangkan dari kumpulan data.

Contoh 2: Hitung mean terpangkas kolom dalam bingkai data

Kode berikut menunjukkan cara menghitung rata-rata terpangkas 5% untuk kolom tertentu dalam bingkai data:

 #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

Rata-rata nilai yang dipangkas 5% di kolom “poin” adalah 20,25 .

Ini adalah rata-rata kolom “poin” setelah menghilangkan 5% nilai terkecil dan 5% terbesar.

Contoh 3: Hitung rata-rata terpangkas dari beberapa kolom

Kode berikut menunjukkan cara menghitung rata-rata pemangkasan 5% untuk beberapa kolom dalam bingkai data:

 #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 

Dari hasilnya kita dapat melihat:

• Rata-rata kolom “poin” yang dipangkas 5% adalah 20,25 .
• Rata-rata kolom “bantuan” yang dipangkas 5% adalah 7,75 .

Terkait: Panduan untuk apply(), lapply(), sapply(), dan tapply() di R

Sumber daya tambahan

Tutorial berikut memberikan informasi tambahan tentang rata-rata yang dipangkas:

Cara Menghitung Rata-Rata Terpangkas Secara Manual
Cara menghitung mean terpangkas dengan Python
Kalkulator Rata-rata yang Dipangkas