'x'必须是数字向量:来自data.frame数字的错误

# 创建一个包含数字和非数字向量的数据框
df <- data.frame(
  num_vector = c(1, 2, 3, 4),
  non_num_vector = c("a", "b", "c", "d")
)

# 检查向量是否为数字向量
is_numeric <- function(x) {
  return(is.numeric(x))
}

# 将非数字向量转换为数字向量
convert_to_numeric <- function(x) {
  if (!is.numeric(x)) {
    x <- as.numeric(x)
  }
  return(x)
}

# 遍历数据框中的所有列，并将非数字向量转换为数字向量
df <- apply(df, 2, convert_to_numeric)

# 输出结果
print(df)