使用条件格式R替换字符串中的字符

发布于01月10日

我有一个单词表，如下所示:

 wordlist <- data.frame(words = c("anywhere", "youll", "feel", "comfortable", "please", "dont"))

我有另一个带有辅音列表的框架:

 consonants <- data.frame(consonants = c("b", "c", "d", "f", "g", "h"))

我想在wordlist中创建一个名为word_structure的新变量，其中所有辅音都替换为"C"，所有元音都替换为"V":

 wordlist$word_structure <- c("VCCCCVCV", "CVVCC", "CVVC", "CVCCVCCVCCV", "CCVVCV", "CVCC")

我想不出如何将条件格式与gsub相结合来获得我需要的内容.

推荐答案

与@stefan所示类似，在您的情况下，您可以写:

library(tidyverse)

dat <- tibble(
  words = c("anywhere", "youll", "feel", "comfortable", "please", "dont"),
  you_want = c("VCCCCVCV", "CVVCC", "CVVC", "CVCCVCCVCCV", "CCVVCV", "CVCC"),
  you_get = str_replace_all(str_replace_all(words, "[aeiou]", "V"), "[^V]", "C")
)

## A tibble: 6 × 3
#  words       you_want    you_get    
#  <chr>       <chr>       <chr>      
#1 anywhere    VCCCCVCV    VCCCCVCV   
#2 youll       CVVCC       CVVCC      
#3 feel        CVVC        CVVC       
#4 comfortable CVCCVCCVCCV CVCCVCCVCCV
#5 please      CCVVCV      CCVVCV     
#6 dont        CVCC        CVCC