在R中缩放数据，导致错误：“'center'的长度必须等于'x'的列数”

Question

我正在尝试使用以下代码从 ISLR 缩放 Hitters 数据：

data = Hitters
apply(data,2,function(x) sum(is.na(x)))
data = subset(data, !is.na(Salary))
apply(data,2,function(x) sum(is.na(x)))

maxs <- apply(data, 2, max) 
mins <- apply(data, 2, min)

scaled <- as.data.frame(scale(data, center = mins, scale = maxs - mins))

其中，我从thisR-Bloggers 神经网络教程中提取（我正在尝试使用 NN 为 Hitters 数据中的薪水建立一个预测模型）。但是，我不断收到错误消息：

> scale(data, center = mins, scale = maxs - mins)
Error in scale.default(data, center = mins, scale = maxs - mins) : 
  length of 'center' must equal the number of columns of 'x'

我在 Stackoverflow 上阅读了有关此比例函数错误 here 的讨论，但不明白为什么我会收到此错误，因为 maxs 和 mins 与我的矩阵具有相同的列，即 Hitters 数据。

Answer 1

如果您删除非数字列，它会起作用...

data = Hitters
apply(data,2,function(x) sum(is.na(x)))
data = subset(data, !is.na(Salary))
apply(data,2,function(x) sum(is.na(x)))

# add this line to remove non-numeric columns.
data <- data[, sapply(data, is.numeric)]

maxs <- as.numeric(apply(data, 2, max) )
mins <- as.numeric(apply(data, 2, min))

scaled <- as.data.frame(scale(data, center = mins, scale = maxs - mins))