以下のような文字列があった時に１を1として取り出し、他はNAとしたい。 smp <- c("新しいファイル（１）","嫁") library(magrittr) library(Nippon) library(stringr) smp %>% zen2han() %>% str_extract("（\\d）") %>% str_replace_all("（|）","")