将计算/公式添加到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