R:循环列表

Question

我现在已经几次解决这个问题了,这次我渴望得到一个有效的解决方案.根本问题是我想用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] 但是级别的顺序是错误的)

Answer 1

您可以使用简单的赋值运算符执行此操作 - 不需要循环(通常在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

现在,您可以使用列索引将"强烈不同意"替换为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