用plot(density(a))画出的图像如下：

现在确定图中最高点的x值。
最高点的y值可以通过density(a)函数确定
> density(a)

Call:
        density.default(x = a)

Data: a (569 obs.);     Bandwidth 'bw' = 0.7705

       x                             y            
Min.   : 4.669       Min.   :1.097e-05  
1st Qu.:11.107    1st Qu.:2.464e-03  
Median :17.546    Median :2.190e-02  
Mean   :17.546    Mean   :3.879e-02  
3rd Qu.:23.984    3rd Qu.:5.421e-02  
Max.   :30.422    Max.   :1.466e-01


也就是说已知在核密度图中y=1.466e-01，如何确定对应的x是多少？
或者有没有什么方法可以直接获得图像最高点的x,y值？