Início / coding / Perguntas / 77693257
Accepted
Cloft X
Asked: 2023-12-21 00:55:46 +0800 CST

Como encontrar correspondências de strings entre dois vetores de tamanhos desiguais em R?

  • 772

Eu tenho dois vetores com strings da seguinte maneira:

x <- c("Zimbabwe (Rhodesia)", "India", "Equatorial Guinea", "United States")

y <- c("Zimbabwe", "India", "Guinea")

Quero obter um vetor que contenha aquelas strings que não correspondem exatamente entre xe y. O resultado idealmente seria:

"Zimbabwe (Rhodesia)" "Zimbabwe" "Equatorial Guinea" "Guinea" "United States"

Estou tentando consolidar alguns conceitos aqui - sei que posso usar grep(paste(y, collapse = "|")para obter uma correspondência parcial para um vetor e âncoras para encontrar uma correspondência exata para uma determinada string. Mas como integrá-los?

Como eu faço isso?

3 respostas

  1. Best Answer

    Uma opção seria usar operações de conjunto, ou seja, usar a diferença de conjunto da união e da interseção:

    x <- c("Zimbabwe (Rhodesia)", "India", "Equatorial Guinea", "United States")

y <- c("Zimbabwe", "India", "Guinea")

setdiff(union(x, y), intersect(x, y))
#> [1] "Zimbabwe (Rhodesia)" "Equatorial Guinea"   "United States"      
#> [4] "Zimbabwe"            "Guinea"
    • 5

  2. Outra possibilidade, que pode ser um pouco mais intuitiva:

    x = c("Zimbabwe (Rhodesia)", "India", "Equatorial Guinea", "United States")
y = c("Zimbabwe", "India", "Guinea")
c(x[!(x %in% y)], y[!(y %in% x)])
#> [1] "Zimbabwe (Rhodesia)" "Equatorial Guinea"   "United States"      
#> [4] "Zimbabwe"            "Guinea"

    Criado em 20/12/2023 com reprex v2.0.2

    Em ordem "decrescente alfabeticamente":

    > c(x[!(x %in% y)], y[!(y %in% x)]) |> 
+   { \(.) .[order(., decreasing = TRUE)] }()
[1] "Zimbabwe (Rhodesia)" "Zimbabwe"            "United States"       "Guinea"             
[5] "Equatorial Guinea"
    • 3

  3. você pode concatenar e descartar os duplicados:

    c(x,y)[!c(x,y) %in% intersect(x,y)]

[1] "Zimbabwe (Rhodesia)" "Equatorial Guinea"   "United States"       "Zimbabwe"            "Guinea"
    • 0

relate perguntas