从大R数据框中删除总计为0的行，其中第一列和最后一列不是数字

我有一个较大的数据帧，需要从中删除几行，因为

rowSums

显示这些行为0，从而影响了我的下游分析。我已经看到，您可以使用

df[rowSums（df[，-1]）>0，]

来实现这一点，但是我得到一个错误，指出“x必须是数字的”，因为第一列和最后一列都不是数字。有没有办法解决这个问题？

我们需要通过索引删除第一列和最后一列

i1 <- sapply(df, is.numeric) # // get a logical index for numeric columns
df[rowSums(df[i1]) > 0,]

i10，]

太棒了，谢谢！