Индексирование в dplyr с использованием индексов строк

Question

У меня есть фрейм данных, и для некоторых столбцов (имена которых я собрал в векторе с именем Variables), включенных в этот df, я хочу вычислить отношение значения переменных для наблюдения, деленное на первоенаблюдение группы наблюдения, которая не равна нулю.

Как мне это сделать?Я пробовал следующее:

if (Condition==1){
  for(i in 1:length(Variables)){
    colNum <- which(colnames(df)== Variables[i])
    df <- df %>% 
      group_by(Id) %>% 
      mutate(Column = .[[colNum]]/first(.[.[[colNum]]!=0, colNum][[1]]))
  }
}

Но это дает мне следующую ошибку:

Error in mutate_impl(.data, dots) : 
Column `Column` must be length 6 (the group size) or one, not 246