check_inf <- is.infinite(exp_Lactylation_clean) 错误于is.infinite(exp_Lactylation_clean): 没有为'list'类型实现默认的方法

这个错误提示表明你在尝试对非数值类型的`exp_Lactylation_clean`数据框应用`is.infinite()`函数。`is.infinite()`函数仅适用于数值型数据，如向量、矩阵或数据框中的数值列。如果你的数据框中包含非数值元素（如因子、字符或其他非数值类型），则无法直接应用于`is.infinite()`。

你需要首先确保`exp_Lactylation_clean`中的所有内容都是可以识别为无限值的数字（包括Inf和-NaN）。如果你的数据框包含非数字列，你可以先筛选出数值列再进行检查。例如，你可以这样做：

# 筛选出数值列
numeric_cols <- sapply(exp_Lactylation_clean, is.numeric)
num_df <- exp_Lactylation_clean[, numeric_cols]

# 对数值列进行检查
check_num_inf <- apply(num_df, 2, function(x) any(is.infinite(x)))

# 然后处理检查结果
if (any(check_num_inf)) {
  cat("数值列中存在 Inf 值。\n")
} else {
  cat("数值列中不存在 Inf 值。\n")
}