R：如何在包含数字和非数字项的行中找到最小值？

Question

我有一个矩阵 - 列1-371是数字，列372-379是非数字（即存储年龄，性别信息）。我想找到数字项的每一行的最小值（对于每一行，查看371值）。

我正在尝试制作一个计数向量，所以代码是：

count_a <- 0
for (i in 1:nrow(data)) {
    if (min(data[i,][which(data$Age < age & data$Gender == gender)]) <= threshold) {
        count_a <- count_a+1
    }
}

但是我一直收到这个错误：FUN（X [[1L]]，...）出错：   仅在具有所有数字变量的数据框上定义

我该怎么办？谢谢！

Answer 1

使用二氧化碳数据集尝试这样的事情：

NUM <-function(dataframe)dataframe[,sapply(dataframe,is.numeric)]
apply(NUM(CO2), 1, min)