有没有办法为多列匹配两个不同的数据框

Question

我想根据条件在列之间建立链接。 我有两个数据框如下：

 df1<-read.table(text=" gol 4 7 6 9 ",header=TRUE)

第二个 df 是：

 df2<-read.table(text=" cost1 cost2 cost3 cost4 7 9 5 13 3 12 4 14 9 13 3 11 5 6 2 13 4 3 5 12 8 16 6 9 9 11 2 9 6 14 11 12 5 10 14 6 2 9 4 12 ",header=TRUE)

条件是，例如，在 df2 中，cost1，如果 df1 中的值大于或等于4 ，则为“y”，否则为“n”。 在成本 2 中，如果 df1 中的值大于或等于 7，则它获得“y”，否则它获得“n”，依此类推。 请假设我有四列以上。

结果如下：

 output<-read.table(text=" cost1 cost2 cost3 cost4 out1 out2 out3 out4 7 9 5 13 yyny 3 12 4 14 nyny 9 13 3 11 yyny 5 6 2 13 ynny 4 3 5 12 ynny 8 16 6 9 yyyy 9 11 2 9 yyny 6 14 11 12 yyyy 5 10 14 6 yyyn 2 9 4 12 nyny ",header=TRUE)

我只是现在需要使用 ifelse 来完成它，但我很难为这个例子做到这一点。 非常感谢您的帮助。

Answer 1

这是一个不使用for-loop的解决方案：

r <- setNames(data.frame(as.matrix(df2)>=outer(rep(1,nrow(df2)),df1$gol)),
              paste0("out",seq(ncol(df2))))
r[r==T] <- "y"
r[r==F] <- "n"
res <- cbind(df2,r)

这使：

> res
   cost1 cost2 cost3 cost4 out1 out2 out3 out4
1      7     9     5    13    y    y    n    y
2      3    12     4    14    n    y    n    y
3      9    13     3    11    y    y    n    y
4      5     6     2    13    y    n    n    y
5      4     3     5    12    y    n    n    y
6      8    16     6     9    y    y    y    y
7      9    11     2     9    y    y    n    y
8      6    14    11    12    y    y    y    y
9      5    10    14     6    y    y    y    n
10     2     9     4    12    n    y    n    y

Answer 2

可能有更好、更优雅的解决方案，我还没有想到，但是使用带有ifelse函数的for循环，你可以做类似的事情：

dfx <- data.frame(matrix(ncol=ncol(df2),nrow = nrow(df2)))
for(i in 1:ncol(df2))
{
  dfx[,i] <- ifelse(df2[,i] >= df1[i,1],"y","n")
  colnames(dfx)[i] <- paste0("out",i)
}
out <- cbind(df2,dfx)

你会得到以下输出：

> out
   cost1 cost2 cost3 cost4 out1 out2 out3 out4
1      7     9     5    13    y    y    n    y
2      3    12     4    14    n    y    n    y
3      9    13     3    11    y    y    n    y
4      5     6     2    13    y    n    n    y
5      4     3     5    12    y    n    n    y
6      8    16     6     9    y    y    y    y
7      9    11     2     9    y    y    n    y
8      6    14    11    12    y    y    y    y
9      5    10    14     6    y    y    y    n
10     2     9     4    12    n    y    n    y