R计算前10名的平均值，在一个括号中具有最高值

Question

所以基本上我要做的就是计算前十名是什么：

df_priceusd[order(df_priceusd$pop,decreasing=T)[1:10],]

现在我想拿前10名的价格计算前10名的平均值，得到所有10名的平均值。

我可以以某种方式实现这个：

mean(df_priceusd$mean_priceusd)

进入我的其他代码？

或者我应该从另一个角度去看它？