{"id":2159,"date":"2023-07-23T10:58:58","date_gmt":"2023-07-23T10:58:58","guid":{"rendered":"https:\/\/statorials.org\/pt\/media-de-r-truncado\/"},"modified":"2023-07-23T10:58:58","modified_gmt":"2023-07-23T10:58:58","slug":"media-de-r-truncado","status":"publish","type":"post","link":"https:\/\/statorials.org\/pt\/media-de-r-truncado\/","title":{"rendered":"Como calcular uma m\u00e9dia aparada em r (com exemplos)"},"content":{"rendered":"

<\/p>\n

\n

Uma m\u00e9dia aparada<\/strong> \u00e9 a m\u00e9dia de um conjunto de dados que foi calculada ap\u00f3s a remo\u00e7\u00e3o de uma porcentagem espec\u00edfica dos menores e maiores valores do conjunto de dados.<\/span><\/p>\n

Por exemplo, uma m\u00e9dia aparada de 10% representaria a m\u00e9dia de um conjunto de dados ap\u00f3s a remo\u00e7\u00e3o dos menores 10% dos valores e dos maiores 10% dos valores.<\/span><\/p>\n

A maneira mais simples de calcular uma m\u00e9dia aparada em R \u00e9 usar a seguinte sintaxe b\u00e1sica:<\/span><\/p>\n

 #calculate 10% trimmed mean\n<\/span>mean(x, trim= 0.1<\/span> )\n<\/strong><\/pre>\n
 Os exemplos a seguir mostram como usar esta fun\u00e7\u00e3o para calcular uma m\u00e9dia aparada na pr\u00e1tica.<\/span><\/p>\n
 Exemplo 1: Calcule a m\u00e9dia aparada do vetor<\/strong><\/span><\/h3>\n
 O c\u00f3digo a seguir mostra como calcular uma m\u00e9dia aparada de 10% para um vetor de dados:<\/span><\/p>\n
 #define data\n<\/span>data = c(22, 25, 29, 11, 14, 18, 13, 13, 17, 11, 8, 8, 7, 12, 15, 6, 8, 7, 9, 12)\n\n#calculate 10% trimmed mean<\/span>\nmean(data, trim= 0.1<\/span> )\n\n[1] 12,375\n<\/strong><\/pre>\n
 A m\u00e9dia aparada de 10% \u00e9 12,375<\/strong> .<\/span><\/p>\n
 Esta \u00e9 a m\u00e9dia do conjunto de dados ap\u00f3s os 10% menores e os 10% maiores dos valores terem sido removidos do conjunto de dados.<\/span><\/p>\n
 Exemplo 2: Calcule a m\u00e9dia aparada da coluna no quadro de dados<\/strong><\/span><\/h3>\n
 O c\u00f3digo a seguir mostra como calcular uma m\u00e9dia aparada de 5% para uma coluna espec\u00edfica em um quadro de dados:<\/span><\/p>\n
 #create data frame\n<\/span>df = data. frame<\/span> (points=c(25, 12, 15, 14, 19, 23, 25, 29),\n                assists=c(5, 7, 7, 9, 12, 9, 9, 4),\n                rebounds=c(11, 8, 10, 6, 6, 5, 9, 12))\n\n#calculate 5% trimmed mean of points<\/span>\nmean(df$points, trim= 0.05<\/span> )\n\n[1] 20.25\n<\/strong><\/pre>\n
 A m\u00e9dia aparada de 5% dos valores da coluna \u201cpontos\u201d \u00e9 20,25<\/strong> .<\/span><\/p>\n
 Esta \u00e9 a m\u00e9dia da coluna \u201cpontos\u201d ap\u00f3s a remo\u00e7\u00e3o dos 5% menores e 5% dos maiores valores.<\/span><\/p>\n
 Exemplo 3: Calcule a m\u00e9dia aparada de m\u00faltiplas colunas<\/strong><\/span><\/h3>\n
 O c\u00f3digo a seguir mostra como calcular uma m\u00e9dia aparada de 5% para m\u00faltiplas colunas em um quadro de dados:<\/span><\/p>\n
 #create data frame\n<\/span>df = data. frame<\/span> (points=c(25, 12, 15, 14, 19, 23, 25, 29),\n                assists=c(5, 7, 7, 9, 12, 9, 9, 4),\n                rebounds=c(11, 8, 10, 6, 6, 5, 9, 12))\n\n#calculate 5% trimmed mean of points and assists<\/span>\nsapply(df[c(' points<\/span> ', ' assists<\/span> ')], function<\/span> (x) mean(x, trim= 0.05<\/span> ))\n\n assist points \n  20.25 7.75 \n<\/strong><\/pre>\n
 Pelo resultado podemos ver:<\/span><\/p>\n