¿Cómo calcular una media recortada en R?

En este artículo, discutiremos cómo calcular la media recortada en el lenguaje de programación R.

Una media recortada es la media de los datos dados que se calcula después de eliminar un porcentaje específico del número más pequeño y más grande de los datos dados.

Ejemplo :

Given a set of elements-
[3,4,5,2,8,7,6,9,10,1]
let x = 10% to be trimmed

Solution:
Step 1 : Convert the set into ascending order
 [1 , 2,  3,  4,  5,  6,  7,  8,  9, 10]
 
Step 2 : Remove 10% top and bottom values
 Here 10% means 1 value from top and 1 value from bottom
 so 1 and 10 are removed
 Then the final set is
 [2,  3,  4,  5,  6,  7,  8,  9]
 
Step 3 : Find the mean of the resultant set
[2+3+4+5+6+7+8+9]/8=5.5

Para calcular la media recortada de los datos dados, el usuario tiene que usar la función mean() con el parámetro de recorte.

Sintaxis :

mean(data,trim)

dónde, 

• los datos son los datos de entrada
• trim es el porcentaje de valor que se eliminará

Ejemplo:

En este ejemplo, estamos recortando el 10 % del vector que contiene elementos del 1 al 10 usando la función mean() con el argumento trim en el lenguaje de programación R.

# create  a vector
data=c(1:10)
  
# display 
print(data)
  
# calculate trimmed mean with trim of 10%
print(mean(data,trim=0.10))

Producción:

[1]  1  2  3  4  5  6  7  8  9 10
[1] 5.5

Ejemplo 2:

En este ejemplo, estamos recortando el 10 % del vector que contiene elementos del 1 al 20 usando la función mean() con el argumento trim en el lenguaje de programación R.

# create  a vector
data=c(1:20)
  
# display 
print(data)
  
# calculate trimmed mean with trim of 10%
print(mean(data,trim=0.10))

Producción:

[1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20
[1] 10.5

Ejemplo 3:

Bajo este ejemplo, estamos recortando la media de los elementos del 5% que contiene 5 elementos en columnas dadas del marco de datos en el lenguaje R.

# create dataframe with 3 columns
data=data.frame(col1=c(23,45,32,12,34),
                col2=c(34,56,78,98,76),
                col3=c(45,78,65,32,45))
  
# display dataframe
print(data)
  
# calculate trimmed mean with trim 
# of 5% in col1
print(mean(data$col1,trim=0.05))
  
# calculate trimmed mean with trim 
# of 5% in col2
print(mean(data$col2,trim=0.05))
  
# calculate trimmed mean with trim 
# of 5% in col3
print(mean(data$col3,trim=0.05))

Producción: