R中for循环后数据帧没有区别

Question

我是 Stackoverflow 的新手，还没有找到可以回答我问题的主题，所以我现在在这里发布！

我正在尝试将数据框中的是/否字符更改为整数 1 和 2。我只想对 45 个主题中的四个这样做。我想使用 ifelse 语句进行 for 循环来执行此操作。该循环起初似乎可以工作，但是当我打开它或查看 head(data) 时，我的数据框没有任何变化。

数据框称为“gatingdata”，列称为“correct_buttonBox”。

这就是我所做的：

ffor row in 1:nrow(gatingdata$correct_buttonBox)) {
  if (gatingdata$subject_nr == "19") {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  }  if (gatingdata$subject_nr == "27") {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  } if (gatingdata$subject_nr == "35") {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  } if (gatingdata$subject_nr == "42") {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  }
}

我也试过了：

for(row in 1:nrow(gatingdata$correct_buttonBox)) {
  which[(gatingdata$subject_nr == "19"),] {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  }  which[(gatingdata$subject_nr == "27"),] {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  } which[(gatingdata$subject_nr == "35"),] {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  } which[(gatingdata$subject_nr == "42"),] {
    ifelse(gatingdata$correct_buttonBox=="no", 1, 2)
  }
} 

我也尝试使用“i in 1:length(data$column)”。也没有用。

如果有人能告诉我我做错了什么，我将非常感激！我在在线搜索中找不到与我的问题相关的任何信息，我已经尝试解决这个问题几个小时了。这是循环的第 7 或第 8 个版本，但对我来说，这似乎是最合乎逻辑的......

最好的，

M.H.

Answer 1

几个问题：

1. 以这种方式循环在 R 中很少是正确的解决方案（逻辑索引会更好）。
2. 您没有将ifelse 调用的结果存储在任何地方。
3. “correct_buttonBox”似乎是字符数据，但您正在尝试交换数字数据。

没有循环的更有效的方法是利用 R 的逻辑索引。像下面这样的东西可能会起作用。我建议您在这里检查每一行代码的结果，以了解发生了什么。请注意，我在这里始终使用字符数据（即subject == '42'，而不是subject == 42，但从您的示例中不清楚这是正确的。使用str(gatingdata) 检查您的数据格式。

subjects <- gatingdata$subject %in% c('19', '27', '35', '42') # logical vector of subjects of interest
yes <- gatingdata$correct_buttonBox == 'yes' # logical vector of 'yes' responses
no <- gatingdata$correct_buttonBox == 'no' # logical vector of 'no' responses

gatingdata$correct_buttonBox[subjects & yes] <- '2' # recode yes's
gatingdata$correct_buttonBox[subjects & no] <- '1' # recode no's