从R中的两个矢量中，找出第二个矢量中的最小值大于第一个矢量中每个值

Question

我在 R 中有两个向量：

> x <- c(323, 344, 383, 404, 428, 444, 1447, 1466, 1492, 1512)
> y <- c(329, 389, 1453, 1465, 1498, 1511)

我需要一个x数据框，并且y中的最小值大于x，因此这是我要寻找的结果集:

> data.frame(
      x = c(323, 344, 383, 404, 428, 444, 1447, 1466, 1492, 1512), 
      y = c(329, 389, 389, 1453, 1453, 1453, 1453, 1498, 1498, NA)
      )

我尝试了子集，例如：

> x_data_frame <- data.frame(a = x) #create the frame
> x_data_frame$b <- min(y[y > x]) #calculation

但是当然，这是行不通的。有什么想法吗？

Answer 1

您可以循环遍历x并根据您的条件构造向量：

data.frame(x, y = sapply(x, function(i) dplyr::na_if(min(y[y>i]), Inf)))

#      x    y
#1   323  329
#2   344  389
#3   383  389
#4   404 1453
#5   428 1453
#6   444 1453
#7  1447 1453
#8  1466 1498
#9  1492 1498
#10 1512   NA

使用dplyr中的na_if（）函数将 值替换为 值适合您的分析，则可以忽略它。