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

dados$valor_medio <- round(dados$Valor_Total/dados$Qtde,2)

dados<-tapply(dados$valor_medio, dados$Material, mean, na.rm = TRUE)