R 긴 문자열의 하위 문자열을 새 하위 문자열로 바꾸는 방법

Question

긴 벡터가 있습니다. 각 요소는 문자열입니다. 각 문자열은 ','로 구분 된 부분 문자열로 나눌 수 있습니다.

내 벡터의 각 문자열에 적어도 하나의 '잘못된'문자열이 포함되어 있는지 확인하고 싶습니다. 그렇다면 '나쁜'문자열을 포함하는 전체 SUBstring을 새 문자열로 바꿔야합니다. 루프가있는 긴 함수를 작성했습니다. 그러나 나는 그것을하기위한 더 쉬운 방법이 있어야한다고 맹세 할 수있다. 아마도 stringr을 사용했을 것이다. 조언 해 주셔서 감사합니다.

# Create an example data frame: 
test <- data.frame(a = c("str1_element_1_aaa, str1_element_2", 
         "str2_element_1", 
         "str3_element_1, str3_element_2_aaa, str3_element_3"), 
        stringsAsFactors = F) 
test 
str(test) 

# Defining my long function that checks if each string in a 
# vector contains a substring with a "bad" string in it. 
# If it does, that whole substring is replaced with a new string: 
library(stringr) 
mystring_replace = function(strings_vector, badstring, newstring){ 
    with_string <- grepl(badstring, strings_vector) # what elements contain badstring? 
    mysplits <- str_split(string = test$a[with_string], pattern = ', ') # split those elements with badstring based on ', ' 
    for (i in 1:length(mysplits)) { # loop through the list of splits: 
    allstrings <- mysplits[[i]] 
    for (ii in 1:length(allstrings)) { # loop through substrings 
     if (grepl(badstring, allstrings[ii])) mysplits[[i]][ii] <- newstring 
    } 
    } 
    for (i in seq_along(mysplits)) { # merge the split elements back together 
    mysplits[[i]] <- paste(mysplits[[i]], collapse = ", ") 
    } 
    strings_vector[with_string] <- unlist(mysplits) 
    return(strings_vector) 
} 
# Test 
mystring_replace(test$a, badstring = '_aaa', newstring = "NEW") 

Answer 1

생각해보십시오.

new_str_replace <- function(strings_vector, badstring, newstring){ 
    split.dat <- strsplit(strings_vector,', ')[[1]] 
    split.dat[grepl(badstring, split.dat)] <- newstring 
    return(paste(split.dat, collapse = ', ')) 
} 

results <- unname(sapply(test$a, new_str_replace, badstring = '_aaa', newstring = 'NEW')) 
results 
#[1] "NEW, str1_element_2"     "str2_element_1"      
#[3] "str3_element_1, NEW, str3_element_3" 

Answer 2

나는 divide-an-conquer 방식으로했습니다. 먼저 하나의 문자열에 대해서만 연산을 수행 한 다음 벡터화했습니다. 기본적으로

library(tidyverse) 
library(stringr) 

# Small utility function 
find_and_replace <- function(string, bad_string, replacement_string) { 
    ifelse(str_detect(string, bad_string), replacement_string, string) 
} 

str_split(test$a, ", ") %>%     
    map(find_and_replace, "aaa", "NEW") %>% 
    map_chr(paste, collapse = ", ") %>% 
    unlist 

:

# does the operation for a string only. divide-and-conquer 
replace_one = function(string, badstring, newstring) { 
    # split it at ", " 
    strs = str_split(string, ", ")[[1]] 
    # an ifelse to find the ones containing badstring and replacing them 
    strs = ifelse(grepl(badstring, strs, fixed = TRUE), newstring, strs) 
    # join them again 
    paste0(strs, collapse = ", ") 
} 

# vectorizes it 
my_replace = Vectorize(replace_one, "string", USE.NAMES = FALSE) 

Answer 3

다음은 tidyverse, purrr 및 stringr를 사용하는 접근 방식이 목록을 통해,리스트로지도 find_and_replace를 벡터를 분할하고, 그 결과를 축소합니다. 나는 각 파이프 %>% 후 결과를 개별적으로 보는 것이 좋습니다.