R语言，怎么提取在密度曲线里看到的第二高的峰对应的x值？

#用一个数字向量化一个密度图

            plot(density(my_vector)#看到共两个峰，右高左低。分别对应x1和x2，会求x1,如下：
            y_peak <- which.max(density(my_vector)$y)#找y值最大的
            x_peak <- density(my_vector)$x[y_peak]#找出最大的y所对应的x     

#但是x2应该怎么提取？左低，所以不是y的次大，因为我这样找到的x紧邻x_peak。。。求指点，怎么办？