CMR.
ht <- hist(precip); rug(precip)
str(ht)
apropos("weight")
weighted.mean(x=ht$mids, w=ht$counts)
mean(precip)
Reforçando que não é aconselhável usar a média a partir dos dados agrupados (ponto médio/frequências) se é possível calcular a média a partir dos valores individuais.
À disposição.
Walmes.