R基础如何提取data.frame仅含数值的行且不产生强制转换警告

方案1：最小改动适配原有逻辑 #

你的代码出现警告是因为非数值内容强制转为数值时触发了预期内的提示，直接用R基础包的suppressWarnings()屏蔽这部分警告即可，代码修改如下：

df[apply(df, 1, function(r) !any(is.na(suppressWarnings(as.numeric(r))))) , ]

该方案完全兼容你原有逻辑的判断规则，支持科学计数法等所有R认可的数值格式，不会产生多余警告。

方案2：正则匹配无警告实现 #

如果你完全不想触发强制转换的逻辑，可以用基础包的正则匹配判断字符串是否符合数值格式：

# 定义数值格式判断函数
is_valid_num <- function(x) {
  grepl("^[-]?\\d+(\\.\\d+)?$", x)
}
# 筛选全列为合法数值的行
df[apply(df, 1, function(r) all(is_valid_num(r))), ]

该方案全程无强制转换操作，不会触发任何警告，适配你示例中的所有合法数值场景，若需要支持科学计数法等特殊格式，调整正则规则即可。

两种方案均仅使用R基础包功能，无需安装第三方依赖，输出结果和你预期完全一致。

内容的提问来源于stack exchange，提问作者asg