es_hist <- mean(subset(returns_clean, returns_clean <= var_hist))

这个代码是将 `returns_clean` 中小于等于 `var_hist` 的值取出来，并计算它们的平均值，结果保存在 `es_hist` 中。

具体来说，`subset(returns_clean, returns_clean <= var_hist)` 会返回一个 `xts` 对象，其中只包含 `returns_clean` 中小于等于 `var_hist` 的值。然后，`mean` 函数会对这个对象中的所有值求平均数，并将结果保存在 `es_hist` 中。