r - 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

使用 CO2 数据集尝试如下操作：

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