在矢量

Question

这里替换文本值是我的数据：

dataset <- c("h", "H", "homme", "masculin", "f", "femme", "épouse") 

我怎么能取代像载体的文本值：

• “女人” - > “F”
• “épouse “ - >” F”
• “男士” - > “H”
• “masculin” - > “H”

我尝试了 “女人” 是什么 - > “F”

test_out <- sapply(dataset, switch, 
     "f"="femme") 
test_out 

预期结果：

"h"  "h"  "h" "masculin" "f"  "f" "f" 

Answer 1

尝试gsub使用正则表达式：

dataset = gsub("^((?!h).*)$", "f", gsub("^((h|H|m).*)$", "h", dataset), perl=TRUE)