Koşullu olarak bulmak ve değiştirmek için düzenli ifade

Question

Sadece A dizesi (örn. "MECH") olduğunda, A dizesini A dizesiyle değiştirmem gerekiyor ve A parçası olduğunda değiştirme yapmak istemiyorum. Daha uzun bir dizgenin (örneğin "MEKANİK"). Şimdiye kadar, dize A'nın tam bir dizgisi olup olmadığını kontrol eden bir grepl() var, ama nasıl değiştirileceğini anlayamıyorum. Grep(), TRUE değerini döndürürse, aksi takdirde değiştirmemesi durumunda gsub() değiştirmeyi yapmayı düşünen bir ifelse() ekledim. Baska öneri? Lütfen aşağıdaki kodu inceleyin. Teşekkürler.

aa <- data.frame(type = c("CONSTR", "MECH CONSTRUCTION", "MECHANICAL CONSTRUCTION MECH", "MECH CONSTR", "MECHCONSTRUCTION")) 

from <- c("MECH", "MECHANICAL", "CONSTR", "CONSTRUCTION") 
to <- c("MECHANICAL", "MECHANICAL", "CONSTRUCTION", "CONSTRUCTION") 

gsub2 <- function(pattern, replacement, x, ...) { 
    for(i in 1:length(pattern)){ 
    reg <- paste0("(^", pattern[i], "$)|(^", pattern[i], ")|(", pattern[i], "$)|(", pattern[i], ")") 
    ifelse(grepl(reg, aa$type), 
      x <- gsub(pattern[i], replacement[i], x, ...), 
      aa$type) 
    } 
    x 
} 

aa$title3 <- gsub2(from, to, aa$type) 

Answer 1

Yalnızca tüm kelimeleri bulma \\< ve \\> yılında from vektörü dizeleri koyabilirsiniz.Eğer: Sadece kuşaklar için

x <- c("CONSTR", "MECH CONSTRUCTION", "MECHANICAL CONSTRUCTION MECH", 
     "MECH CONSTR", "MECHCONSTRUCTION") 

from <- c("\\<MECH\\>", "\\<CONSTR\\>") 
to <- c("MECHANICAL", "CONSTRUCTION") 

for(i in 1:length(from)){ 
    x <- gsub(from[i], to[i], x) 
} 

print(x) 
# [1] "CONSTRUCTION"      "MECHANICAL CONSTRUCTION"   
# [3] "MECHANICAL CONSTRUCTION MECHANICAL" "MECHANICAL CONSTRUCTION"   
# [5] "MECHCONSTRUCTION" 

Answer 2

Ben dize içinde this gibi tüm sözcük MEK içeriyorsa almak için regex'i (?<=\W|^)MECH(?=\W|$) kullanın.

İhtiyacınız olan bu mu?

Answer 3

, \< \> muhafazası kullanılarak dışında, bütün bir kelime herhangi bir dize olarak tanımlanabilir Bir boşlukta veya satır sonunda sonlandırma (\s|$).

gsub("MECH(\\s|$)", "MECHANICAL\\1", aa$type) 

bu yaklaşımla tek sorun alanı veya sonuna-of-line maçın bir parçası, dolayısıyla parantez içinde kapsülleme ve geribaşvuru (\1) olarak kullanılan üzerinde taşımak için ihtiyaç vardır. Özel bir özel durumunuz olmadığından, bu özel soru için \< \> kasadan üstündür. Bununla birlikte, istisnalarınız varsa, daha açık bir yöntem kullanmak daha iyidir. Araç kutunuzdaki daha fazla araç, daha iyi.