First, install “stringr” package of Hadley

install.packages("stringr")

library(stringr)

Take cars2 data as example

da <- cars2

Country <- as.character(da$Country) US <- "USA"

Country

[1] "USA" "USA" "Korea" "Japan/USA" "Japan" "Mexico" "Japan/USA" "Korea" [9] "Japan" "Japan" "Japan/USA" "Japan" "Germany" "USA" "USA" "USA" [17] "USA" "Japan" "Japan" "Japan" "USA" "Japan" "Germany" "USA" [25] "USA" "USA" "USA" "Japan/USA" "Japan/USA" "Japan" "Japan" "Japan" [33] "USA" "France" "Japan/USA" "Japan/USA" "Sweden" "Japan" "USA" "USA" [41] "USA" "USA" "USA" "USA" "Korea" "Japan" "Japan" "USA" [49] "USA" "Japan" "USA" "USA" "USA" "USA" "USA" "USA" [57] "Japan" "Japan" "Japan" "Japan"

Detect where the US match the Country variable

str_detect(Country, US)

[1] TRUE TRUE FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE [17] TRUE FALSE FALSE FALSE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE [33] TRUE FALSE TRUE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE TRUE [49] TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE

Locate where the US match Country

str_locate(Country, US)

start end [1,] 1 3 [2,] 1 3 [3,] NA NA [4,] 7 9 [5,] NA NA [6,] NA NA [7,] 7 9 [8,] NA NA [9,] NA NA [10,] NA NA [11,] 7 9 [12,] NA NA [13,] NA NA [14,] 1 3 [15,] 1 3 [16,] 1 3 [17,] 1 3 [18,] NA NA [19,] NA NA [20,] NA NA [21,] 1 3 [22,] NA NA [23,] NA NA [24,] 1 3 [25,] 1 3 [26,] 1 3 [27,] 1 3 [28,] 7 9 [29,] 7 9 [30,] NA NA [31,] NA NA [32,] NA NA [33,] 1 3 [34,] NA NA [35,] 7 9 [36,] 7 9 [37,] NA NA [38,] NA NA [39,] 1 3 [40,] 1 3 [41,] 1 3 [42,] 1 3 [43,] 1 3 [44,] 1 3 [45,] NA NA [46,] NA NA [47,] NA NA [48,] 1 3 [49,] 1 3 [50,] NA NA [51,] 1 3 [52,] 1 3 [53,] 1 3 [54,] 1 3 [55,] 1 3 [56,] 1 3 [57,] NA NA [58,] NA NA [59,] NA NA [60,] NA NA

Replace by space: “”

Country1 <- str_replace(Country, US, "")

Country1

[1] "" "" "Korea" "Japan/" "Japan" "Mexico" "Japan/" "Korea" "Japan" [10] "Japan" "Japan/" "Japan" "Germany" "" "" "" "" "Japan" [19] "Japan" "Japan" "" "Japan" "Germany" "" "" "" "" [28] "Japan/" "Japan/" "Japan" "Japan" "Japan" "" "France" "Japan/" "Japan/" [37] "Sweden" "Japan" "" "" "" "" "" "" "Korea" [46] "Japan" "Japan" "" "" "Japan" "" "" "" "" [55] "" "" "Japan" "Japan" "Japan" "Japan"