条件＆＃x2B;最低（）仅返回输入值（r）

Question

也许最好将其作为两个问题提出。

较大的问题是我正在编写一个for循环（在另一个循环中），该循环将数据框架分为等于I等于I的行，或者用最新信息返回行（S）。为了澄清，for循环在一个范围内运行（1:90），并且最多没有数据（i）。为了解决这个问题，我写了一个Ifelse（IS.na（），如果是否则），尽管其他条件似乎奏效，但我正在努力编码IF。

自然，我正在提出一个简化的版本：

df$days <- c(7,  17,  20,  22,  42, 55,  55,  82, 168, 251, 308)

for(i in 1:90)
{
latest <- ifelse(is.na(df$days[i])== TRUE,
      subset(df, days == min(days >=i)), 
      subset(df, days == i))
}

这使我想到了，中心问题。我一直在玩min（），看来我的代码有一个问题：

i = 1

df$days
 [1]   7  17  20  22  42  55  55  82 168 251 308

> min(df$days >= i)
[1] 1

我的目的是返回高于i的最低价值。因此，在此示例中，那将是7。但是，最低（DF $ DAME＆GT; = i）返回i。

编辑 user2974951提供了一个代码，该代码似乎已解决了中心问题（谢谢！），但是现在我的iFelse（）不再按预期工作，并且正在生成没有信息的列表。

Answer 1

我认为这是做我想做的事情的一种紧凑而强大的方式。

library(tidyverse)

lapply(
   1:90,
   \(i) return(df %>% filter(days <= i) %>% slice_max(days))
)

Answer 2

之所以获得1的原因是因为 df $ days＆gt; = i 返回一个逻辑向量，然后将其解释为 min> min 的数字（ true> true ） AS 1和 false as 0）：

df <- data.frame(days = c(7,  17,  20,  22,  42, 55,  55,  82, 168, 251, 308))

i <- 1
df$days >= i
#>  [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE

as.numeric(df$days >= i)
#>  [1] 1 1 1 1 1 1 1 1 1 1 1

min(df$days >= i)
#> [1] 1

^{在2022-06-10创建的（v1.0.0）}

as user2974951子集您的原始数据：

min(df$days[df$days >= i])