ABC_subset<- unlist(lapply(ABC,is.numeric)) ABC_1<- read_csv[rowSums(ABC_subset)!=0,]

根据你提供的代码，似乎你想将ABC数据框中的数值列提取出来，并将非零行保存到ABC_1数据框中。

然而，你在使用rowSums函数时出现了错误。这个错误是因为rowSums函数需要一个矩阵或数据框作为参数，而不是一个向量。

如果你想提取ABC数据框中的数值列，并将非零行保存到ABC_1数据框中，你可以尝试以下代码：

ABC_subset <- ABC[, sapply(ABC, is.numeric)]
ABC_1 <- ABC[rowSums(ABC_subset) != 0, ]

这里，我们使用sapply函数来检查每一列是否为数值类型，并将结果存储在ABC_subset中。然后，我们使用rowSums函数计算每一行的和，并将非零行保存到ABC_1中。

希望这能解决你的问题！如果还有其他问题，请随时提问。