Olá, boa noite!
Tenho um data frame com milhares de linhas e 58 colunas contendo, por exemplo, fornecedor, material, quantidade de material e valor total do material. Fiz um exemplo abaixo, somente do que preciso neste primeiro momento.
Fornecedor Material Qtde Valor_Total
A A 1 100
A B 2 150
A E 5 26
B B 6 76
C A 5 126
C C 1 58
D D 10 108
E E 9 99
E A 7 30
E E 8 80
E E 1 54
F G 1 0
Primeiro, eu criei uma coluna com o valor médio de cada linha
dados$valor_medio <- round(dados$Valor_Total/dados$Qtde,2)
Agora eu preciso calcular a média, mediana e uma nova média, tirando os outliers, de dados$valor_medio
por material. Porém, quando aplico a função tapply
ocorre o seguinte erro:
dados<-tapply(dados$valor_medio, dados$Material, mean, na.rm = TRUE)
Error in tapply(dados$valor_medio, dados$Material, mean, na.rm = TRUE) : argumentos devem ter o mesmo comprimento
Alguém poderia me ajudar com este erro e informar como calculo a média tirando os outliers de dados$valor_medio
de cada material?
PS: O material é chr
str(dados$Material)
ouclass(dados$Material)
?