r - 将通用函数（特殊情况幂律）拟合到 R 中的直方图

Question

如何将通用曲线拟合到 R 中的直方图？

例如，在示例中：Fitting a density curve to a histogram in R它显示了如何使用 ggplot 密度估计，但我想拟合任何类型的曲线（更具体地说，在这种情况下我想拟合幂律，但它可以是任何其他的，比如 x^2)。

我如何将其与数据相匹配：

hdat <- hist(c(rep(65, times=5), rep(25, times=5), rep(35, times=10), rep(45, times=4)))