r 相当于 sql 更新？ [复制]

Question

我环顾四周，找不到简单的答案。 我该如何做 SQL 中的更新表？ 例如：

> df1 = data.frame(id=seq(1:3), v1=c("a", "b", NA))
> df1
  id   v1
1  1    a
2  2    b
3  3 <NA>
> df2 = data.frame(id=seq(1:3), v2=c("z", "y", "c"))
> df2
  id v2
1  1  z
2  2  y
3  3  c

如何在 v1 中使用 v2 中的值更新 df1，但仅在 id 匹配且 id > 2 时？ 我查看了 data.table，但无法弄清楚 := 语法，并希望在基本 R 中有一些简单的东西？期望的输出是：

> df1
  id   v1
1  1    a
2  2    b
3  3    c

Answer 1

当df1 中没有df2 中存在id 时，以及如果订单不同，更新后可以正常工作。只要只有一个 id 列，此方法就有效：

df1 <- data.frame(id=seq(1:5), v1=c("a", "b", NA, NA, NA), stringsAsFactors=F)
df2 <- data.frame(id=seq(1:3), v2=c("z", "y", "c"), stringsAsFactors=F)

df1[df1$id > 2, -1] <- df2[df1$id[df1$id > 2], -1]
df1

生产：

  id   v1
1  1    a
2  2    b
3  3    c
4  4 <NA>
5  5 <NA>

---

这是一个简单的解决方案，只要两个数据帧具有相同的 id 集，它就可以工作：

df1[df1$id > 2, ] <- df2[df1$id > 2, ]

生产：

  id v1
1  1  a
2  2  b
3  3  c

重要的是，v1 和 v2 需要是字符，所以在之前运行它，因为它们默认是 factor：

df1$v1 <- as.character(df1$v1)    
df2$v2 <- as.character(df2$v2)

如果您需要连接多个列，或者如果一个表中的 id 不全部存在于另一个表中，您可以使用 merge 或 data.table 在一个表上获取两个变量，然后构造新列通过将列与ifelse 组合在一起。

Answer 2

SQLite 可以通过 sqldf 在 sqlite 中使用更新：

library(sqldf)

sqldf(c("update df1 
         set v1 = (select v2 from df2 where df2.id = df1.id) 
         where id > 2", 
        "select * from df1"))

给出：

  id v1
1  1  a
2  2  b
3  3  c

MySQL 这适用于 MySQL：

library(RMySQL)
library(sqldf)

sqldf(c("update df1 
  left join df2 on (df1.id = df2.id and df1.id > 2)
  set df1.v1 = coalesce(df2.v2, df1.v1)",
  "select * from df1")
)

给予：

  id v1
1  1  a
2  2  b
3  3  c

base R 这也有效。前两行只是将 v1 和 v2 转换为字符，如果 v1 和 v2 已经是字符，则可以避免：

df1c <- transform(df1, v1 = as.character(v1))
df2c <- transform(df2, v2 = as.character(v2))
transform(df1c, v1 = ifelse(id > 2, df2c[match(id, df2c$id), "v2"], v1))

更新已合并 cmets 并添加了基础 R 解决方案。