我想根据匹配检查列表中的相邻元素。例如，在随机排序的字母列表中，我想知道 的相邻字母是什么m。我当前的解决方案是：
library(stringr)
ltrs <- sample(letters)
ltrs[(str_which(ltrs,'m')-2):(str_which(ltrs,'m')+2)]
[1] "j" "f" "m" "q" "a"
对我来说，重复str_which()感觉没有必要。有没有更简单的方法来达到相同的结果？