使用R来翻译“编码”表

Question

我使用R'翻译'回编码表时遇到问题。所以我有一张由XX，XY，YY组成的表格元素的表格。我有第二个表格（.csv），其中X和Y的含义是正确的 - 因此，如果X = 1且Y = 2，则看起来像这样：将XX转换为11。 ..

任何人都可以提示一个很好的起点，在R中写这样的程序/一段代码吗？

Answer 1

这与查找表略有不同，因为您实际上正在拼写并替换每个元素的部分。 qdap（定量话语分析包）有一个mgsub（多个gsub）函数，可以轻松处理这个问题。

library(qdap) 

#recreate scenerio with quick character vector (no need for quotes) 
z <- factor(qcv(XX,XY,YY)) 
#replace all X and Ys with 1 and 2 
mgsub(pattern = c("X", "Y"), replacement = c(1, 2), text.var = z) 


#Even better if you have the code book read in, say it looks like this: 
code.book <- data.frame(symb = c("X", "Y"), replacement = c(1, 2)) 

# > code.book 
# symb replacement 
# 1 X   1 
# 2 Y   2 

mgsub(code.book$symb, code.book$replacement, z)