到目前为止,我已经几次解决了这个问题,而这次我渴望得到一个有效的解决方案。根本问题是我想用paste
函数遍历变量列表。
dat <- read.csv("some file", header=TRUE)
list.R <- c("IC","IG","DM","IM","IN","EN","RM")
for (RO in list.R){
paste("dat$",RO,"_I", sep="")[
paste("dat$",RO,"_I", sep="") ==
"Strongly disagree"] <- 1
}
我将变量的名称粘贴在一起,但这会在块引号中给出一个字符串。我尝试了以下但是到目前为止没有任何工作:
eval(parse(text=paste("dat$",RO,"_I", sep="")))
或
get(paste("dat$",RO,"_I", sep=""))
你知道如何解决这个问题,以便循环工作吗? 我非常感谢你的帮助:)。
(我知道在这种情况下我也可以使用as.numeric(levels(dat$IC_I))[dat$IC_I]
但是级别的顺序是错误的)
答案 0 :(得分:10)
您可以使用简单的赋值运算符执行此操作 - 不需要循环(通常在R中就是这种情况)。首先,我将构建一个示例数据框,将您的变量存储为字符类型而不是因子:
dat <- data.frame(id=1:2, ID_I=c("Agree", "Strongly Disagree"), IG_I=c("Strongly Disagree", "Agree"), stringsAsFactors=FALSE)
dat
# id ID_I IG_I
# 1 1 Agree Strongly Disagree
# 2 2 Strongly Disagree Agree
现在您可以使用列索引替换&#34;非常不同意&#34;用1:
cols <- c("ID_I", "IG_I")
dat[,cols][dat[,cols] == "Strongly Disagree"] <- 1
dat
# id ID_I IG_I
# 1 1 Agree 1
# 2 2 1 Agree