Добавить расчет / формулу для столбца в фрейме данных в r

Question

Я хочу применить следующую формулу к паре столбцов в моем фрейме данных.Он выбрасывает NAN в столбец, к которому я его применил.Кто-нибудь, пожалуйста, укажите, где я ошибаюсь?Кроме того, если в одной из строк есть `inf 'или NA, как с этим бороться?

Формула:

(((x - min(col))*9)/(max(col) - min(col))) + 1 

Вот пример кадра данных df:

A     B    C 
1.2  122  0.1
2.2  121  0.2
4.5  134  0.4

Вот мой код:

formula_gen <-function(x) {
  (((x - min(x))*9)/(max(x) - min(x))) + 1
}

df$d <- sapply(df$A, formula_gen)

Это мой вывод:

A          
NAN
NAN
NAN