Цикл для имен переменных в R

Question

Я пытаюсь сделать цикл следующим образом:

for(i in 1:38){
        brdf$g[[i]]<-ifelse(brdf$C[[i]]==4,brdf$P[[i]],0) 
        brdf$g[[i]]<-max(brdf$g_[[i]])
        }

В кадре данных brdf у меня уже есть C1, C2...,C38 и P1, P2...,P38.Теперь я хочу создать переменные g1, g2,...g38, чтобы g1=P1, если C1==4, g2=P2, если C2==4, ... g38=P38, если C38==4.

Когда я пытаюсь запуститьКод над ошибкой:

Error in g_[i] <- ifelse(brdf$C[i] == 4, brdf$P[i], 0) : 
  replacement has length zero

В чем проблема?