最笨的办法是：

y = c(x[1:which(x ==87)],rep(5,5),x[(which(x == 87) + 1):length(x)])

y
[1]  34  56 768 879 434  76  98 345  87   5   5   5   5   5 567   4  56 878
[19] 987  67   6

相当好啊                                                                        
                                       
                                                     
                                                     
                                             
                                                                 
                                                                                 

谢谢