如何选择 R 数据框中满足特定条件的第一行？

Question

如何选择满足特定条件的 R 数据框的第一行？

上下文如下：

我有一个包含五列的数据框：

"pixel", "year","propvar", "component", "cumsum." 

有 1,225 种 pixel 和 year 组合，因为数据是根据 49 个地理区域的年度时间序列计算得出的25 个研究年中每年的像素。在每个像素年中，我计算了 propvar，即给定像素年时间序列的快速傅里叶变换的给定分量所解释的总方差的比例。然后我计算了 cumsum，它是像素年内每个频率分量的 propvar 累积和。 component 列仅提供傅立叶级数分量的索引（加 1），从中计算 propvar。

我想确定解释大于 99% 的方差所需的成分数量。我认为实现此目的的一种方法是找到每个像素年中的第一行，其中 cumsum > > 0.99，并从中创建一个包含三列的数据框：pixel、year 和 numbercomps，其中 numbercomps是在给定像素年内解释大于 99% 的方差所需的分量数量。我不知道如何在 R 中执行此操作。有人有解决方案吗？

Answer 1

当然。像这样的东西应该可以解决问题：

# CREATE A REPRODUCIBLE EXAMPLE!
df <- data.frame(year = c("2001", "2003", "2001", "2003", "2003"),
                 pixel = c("a", "b", "a", "b", "a"), 
                 cumsum = c(99, 99, 98, 99, 99),
                 numbercomps=1:5)
df
#   year pixel cumsum numbercomps
# 1 2001     a     99           1
# 2 2003     b     99           2 
# 3 2001     a     98           3
# 4 2003     b     99           4
# 5 2003     a     99           5

# EXTRACT THE SUBSET YOU'D LIKE.
res <- subset(df, cumsum>=99)
res <- subset(res, 
              subset = !duplicated(res[c("year", "pixel")]),
              select = c("pixel", "year", "numbercomps"))
#   pixel year numbercomps
# 1     a 2001           1
# 2     b 2003           2
# 5     a 2003           5

EDIT 另外，对于那些对 data.table 感兴趣的人，有这样的：

library(data.table)
dt <- data.table(df, key="pixel, year")    
dt[cumsum>=99, .SD[1], by=key(dt)]

Answer 2

假设 df 是数据集，我们必须从中选择满足条件的第一行。
这段两行代码将为您提供所需的行。

row_index <- which(<criteria>, arr.ind = TRUE)[1]

df_required <- df[row_index,]