R 如何在柱状图的指定位置绘制线性回归线？

所以我们试图确定物种形成率是动物体重的函数。动物重量在一起绘制时遵循高斯分布；因此，我们只想在直方图的递减趋势中拟合回归线。具体来说，直线应从x=2.1和y=3.0开始。图1是我当前使用下面代码绘制的图，而图2是我想要获得的结果（通过绘制叠加的线），我不知道怎么做。在此问题上的任何帮助都将不胜感激

附件是我的代码：

    x.log = c(-2.9, -2.7, -2.5, -2.3, -2.1, -1.9, -1.7, -1.5, -1.3, -1.1, 
           -0.9,-0.7, -0.5, -0.3, -0.1, 0.1, 0.3, 0.5, 0.5, 0.7, 0.9, 1.1, 
            1.3, 1.5, 1.7, 1.9, 2.1, 2.3, 2.5, 2.7, 2.9, 3.1, 3.3, 3.5, 3.7, 
            3.9, 4.1, 4.3, 4.5, 4.7, 4.9, 5.1, 5.3, 5.5, 5.7, 5.9, 6.1, 
            6.3, 6.5,6.9, 7.1, 7.3, 7.5, 7.7, 7.9)
    y.log = c(0, 0, 0, 0.47, 0.60, 0.95, 1.14, 1.38, 1.68, 1.79, 2.10, 2.26,
              2.29, 2.39, 2.48, 2.52, 2.79, 2.68, 2.80, 2.84, 2.96, 2.92, 
              2.91, 3.01, 2.95, 3.05, 2.94, 2.96, 2.98, 2.83, 2.85, 2.83, 
              2.71, 2.63, 2.61, 2.57, 2.37, 2.26, 2.17, 1.99, 1.87, 1.74, 
              1.62, 1.36, 1.30, 1.07, 1.20, 0.90, 0.30, 0.69, 0.30, 0.47, 0
               0.30, 0)

     # plot the histogram
     names(log.nspecies) = logbio
     log.nspecies = log.nspecies[order (as.numeric(names(log.nspecies)))]
     xpos = barplot(log.nspecies, las = 2, space = 0, col = 'red', 
           xlab = 'ln Weight', ylab = 'ln Number of species')