替换除最后一列以外的所有值

Question

我有本节将所有列中的值99替换为NA。但是我不希望respondent_id列受到影响。

SOURCE_SUBSET[SOURCE_SUBSET==99] <- NA

Answer 1

cols <- names(SOURCE_SUBSET)[which(!(names(SOURCE_SUBSET) %in% "respondent_id"))]

for(i in cols){
  SOURCE_SUBSET[SOURCE_SUBSET[, i] == 99, i] <- NA
}