Entfernen Sie die in Vektor 1 gefundenen Zeichenfolgen aus Vektor 2
Ich habe diese beiden Vektoren:
sample1 <- c(".aaa", ".aarp", ".abb", ".abbott", ".abogado")
sample2 <- c("try1.aarp", "www.tryagain.aaa", "255.255.255.255", "onemoretry.abb.abogado")
Ich versuche, sample1-Zeichenfolgen zu entfernen, die in sample2 gefunden werden. Das nächste, was ich bekommen habe, ist durch Iteration mitsapply
, das gab mir das:
sapply(sample1, function(i)gsub(i, "", sample2))
.aaa .aarp .abb .abbott .abogado
[1,] "try1.aarp" "try1" "try1.aarp" "try1.aarp" "try1.aarp"
[2,] "www.tryagain" "www.tryagain.aaa" "www.tryagain.aaa" "www.tryagain.aaa" "www.tryagain.aaa"
[3,] "255.255.255.255" "255.255.255.255" "255.255.255.255" "255.255.255.255" "255.255.255.255"
[4,] "onemoretry.abb.abogado" "onemoretry.abb.abogado" "onemoretry.abogado" "onemoretry.abb.abogado" "onemoretry.abb"
Natürlich sollte die erwartete Ausgabe @ se
[1] "www.tryagain" "try1" "onemoretry" "255.255.255.255"
Vielen Dank für Ihre Zeit