使用 R 中的 where 子句使用 Sqldf 选择特定行答案

【问题标题】：Selecting specific rows with Sqldf using where clause in R使用 R 中的 where 子句使用 Sqldf 选择特定行
【发布时间】：2017-11-01 22:45:13
【问题描述】：

我有 2 个数据框，每个数据框有 2 列未排序，当 df1 的两行与 df2 中的行匹配时，我想让 sqldf 打印列 (Orep) 的值

这是我仍在构建的起始代码。我被卡在 where 子句上，因为它正在生成我想要的输出

library(sqldf)     
df1<- data.frame(mydata1)
df2 <- data.frame(mydata2)

con1<- sqldf ("SELECT Orep FROM df2 Where df1.Item=df2.Oitem And df1.Rep=df2.Orep ")

它给了我零行而不是 AS-DA。

当我使用下面的代码时，我得到了我想要的结果，但我需要 where 子句才能工作，因为我还有其他逻辑条件要对查询执行。

sqldf('SELECT * FROM df1 INTERSECT SELECT * FROM df2')

最终，我想运行一个比较 df1 和 df2 列并返回“匹配”或“不匹配”或最新的查询（如果 df1.item = df2.Oitem And df1.Rep=99- 99 ）在新列中，类似这样的

我的数据2
Oitem -----|----Orep|-- 结果
1. BC-GA | XY-RA |没有匹配
2. 恒压直流| XY-RB |没有匹配
3. 简历-DA | AS-DA |比赛
4.简历-DD | AS-DD |最新的

【问题讨论】：

请不要将输入作为图像提供。它使其他人无法复制和粘贴数据。
这是我的第一篇文章。下次我会以正确的格式输入。谢谢！

标签： r sqldf

【解决方案1】：

问题中第一个select 的问题在于它尝试使用df1，即使它不在from 子句中。

现在，假设：

Item 在 df1 中是唯一的，Oitem 在 df2 中是唯一的。（如果不是，请修改问题以解释如何处理重复项。）
df1 和 df2 在最后的注释中重复显示。
每个df2 行应该有一个输出行。

那么我们有：

library(sqldf)

sqldf("select 
       df2.*,
       case 
        when Item = OItem and Rep = ORep then 'Match'
        when Item = OItem and Rep = '99-99' then 'Latest'
        else 'Nomatch' 
       end Results
       from df2 left join df1 on Item = Oitem")

给予：

  Oitem  Orep Results
1 BC-GA XY-RA Nomatch
2 CV-DC XY-RB Nomatch
3 CV-DA AS-DA   Match
4 CV-DD AS-DD  Latest

注意：df1 和 df2 以可重复的形式给出如下。请注意，read.csv 默认为 header = TRUE。

Lines1 <- "
Item | Rep
CV-DA | AS-DA
CV-DB | AS-DB
CV-DC | AS-DC
CV-DD | 99-99"
df1 <- read.csv(text = Lines1, as.is = TRUE, sep = "|", strip.white = TRUE)

Lines2 <- "
Oitem | Orep
BC-GA | XY-RA
CV-DC | XY-RB
CV-DA | AS-DA
CV-DD | AS-DD"
df2 <- read.csv(text = Lines2, as.is = TRUE, sep = "|", strip.white = TRUE)

【讨论】：

它工作得很好，它给我的结果与我的 Vlookup 产生的结果相同。
对于没有匹配的情况，我扩展了代码以用正确的 Replacement(Rep) 替换 No Match。现在我想从 Match 案例中获取 Orep 并将其用作新的 col Oitem_new 并将其与 df1 中的 Item 进行比较。所以如果 item = Oitem_new 和 Rep = ' ' 那么 '没有新的替换' else if item = oitem_new 和 Rep != ' ' 然后是 Rep。我也可以迭代这个过程吗？

【解决方案2】：

您可以使用 SQL 内连接：

library(sqldf)

sqldf("select b.Orep from df1 as a
      inner join df2 as b
        on a.Item = b.Oitem and
           a.Rep = b.Orep")

结果：

   Orep
1 AS-DA

数据：

df1 = read.table(text = "Item|Rep  
1.|CV-DA|AS-DA
2.|CV-DB|AS-DB
3.|CV-DC|AS-DC
4.|CV-DD|99-99", header = TRUE, sep = "|", row.names = 1)

df2 = read.table(text = "Oitem|Orep  
1.|BC-GA|XY-RA
2.|CV-DC|XY-RB
3.|CV-DA|AS-DA
4.|CV-DD|AS-DD", header = TRUE, sep = "|", row.names = 1)

【讨论】：