根据上限将新列添加到数据框[重复]

Question

我有一个数据集，我想在其中一个 num_values 添加来自另一个数据帧的新值。

这是一个例子，创建一些 df1

First.Name <- c("John", "Edgar", "Walt", "Jane")
Second.Name <- c("Doe", "Poe", "Whitman", "Austen")
num_value <- runif(4,0,1.2)
df1 <- data.frame(First.Name, Second.Name, num_value)

有这个输出

 First.Name Second.Name  num_value
1       John         Doe 0.08137931
2      Edgar         Poe 0.30245512
3       Walt     Whitman 0.62542554
4       Jane      Austen 0.40573224

df2 定义为

upper_boundary <- seq(0,1.6,0.2)
class_value <- c(1:9)
df2 <- data.frame(upper_boundary, class_value)

并将其输出为

  upper_boundary class_value
1            0.0           1
2            0.2           2
3            0.4           3
4            0.6           4
5            0.8           5
6            1.0           6
7            1.2           7
8            1.4           8
9            1.6           9

我想做的是在第一个数据框类值的末尾添加 df2. 输出应该类似于

       First.Name Second.Name  num_value     class_value  
    1       John         Doe 0.08137931         2
    2      Edgar         Poe 0.30245512         3
    3       Walt     Whitman 0.62542554         5
    4       Jane      Austen 0.40573224         4

提前致谢

Answer 1

cut 和 findInterval 将在这里工作。我会用第二个，

df1$class_value <- df2$class_value[ findInterval(df1$num_value, df2$upper_boundary) ]
df1
#   First.Name Second.Name num_value class_value
# 1       John         Doe 0.1908379           1
# 2      Edgar         Poe 0.5045381           3
# 3       Walt     Whitman 0.1925997           1
# 4       Jane      Austen 0.2674465           2

Answer 2

尝试cut，如下所示

df1$class_value <- df2$class_value[as.integer(cut(df1$num_value,df2$upper_boundary))+1]