После проверки условия необходимо добавить столбец и присвоить значение

Question

У меня есть фрейм данных (final1) с несколькими столбцами

  for(i in final1$Total.Tyres)
  {
   if(final1$Total.Tyres[i] >= 500){
    final1$flag_tyres[i]<-1
   } else {
    final1$flag_tyres[i]<-0
   }
  }

Мне нужно проверить, не превышают ли шины 500, если это так, нужно назначить 1, добавив новый столбец flag_tyres, когда попытался, приведенный выше код даетмне ниже ошибка

 Error in if (final1$Total.Tyres[i] >= 500) { : 
  missing value where TRUE/FALSE needed

Answer 1

Простая ошибка, должна быть 1:length(final1$Total.Tyres) во внешнем цикле.Кроме того, вы можете векторизовать результат, как уже ответили.

Answer 2

Возможно, вы захотите векторизовать свой код вместо использования for для циклического перемещения по строкам, сохраняя при наборе текста, хлопот и быстрее:

final1$flag_tyres <- ifelse(final1$Total.Tyres >= 500, 1, 0)