如果dataframe1不为空，则根据dataframe2 +创建新行的列更新column1列

Question

我有一个dataframe，我想用来自另一个dataframe的信息来更新它，查找dataframe。

特别是，我想根据df2$value列id和id2更新df1$value的单元格。

• 如果df1$value的单元格是NA，我知道如何使用包data.table进行操作。

但

• 如果df1$value的单元格不是空的，data.table将使用df2$value的单元格来更新它。

我不想这样。我想要的是：

如果df1$value的单元格不是空的(在本例中是df1$id为c的行)，则不要更新单元格，而是创建df1的重复行，其中of 1$ value的单元格从df2$value单元格中获取值。

我已经在网上寻找解决方案，但找不到任何解决方案。是否有一种方法可以轻松地使用tidyverse、data.table或sql-like包？

谢谢你的帮助!

编辑:我刚刚意识到，我忘了把角落的情况，在这两个数据格式中，行是NA。有了到目前为止(07/08/19 14:42)的答复，行e就会从最后一个数据last中删除。但我真的需要留着它！

大纲：

> df1
  id id2 value
1 a         1   100
2 b         2   101
3 c         3    50
4 d         4    NA
5 e         5    NA

> df2
  id id2 value
1 c         3   200
2 d         4   201
3 e         5    NA

# I'd like:

> df5
  id id2 value
1 a         1   100
2 b         2   101
3 c         3    50
4 c         3   200
5 d         4   201
6 e         5    NA

这就是我如何设法解决我的问题，但这是相当麻烦。

# I create the dataframes
df1 <- data.frame(id=c('a', 'b', 'c', 'd'), id2=c(1,2,3,4),value=c(100, 101, 50, NA))
df2 <- data.frame(id=c('c', 'd', 'e'),id2=c(3,4, 5), value=c(200, 201, 300))

# I first do a left_join so I'll have two value columnes: value.x and value.y
df3 <- dplyr::left_join(df1, df2, by = c("id","id2"))

# > df3
#   id id2 value.x value.y
# 1  a   1     100      NA
# 2  b   2     101      NA
# 3  c   3      50     200
# 4  d   4      NA     201

# I keep only the rows in which value.x is NA, so the 4th row
df4 <- df3 %>%
  filter(is.na(value.x)) %>% 
  dplyr::select(id, id2, value.y)

# > df4
#   id id2 value.y
# 1  d   4     201

# I rename the column "value.y" to "value". (I don't do it with dplyr because the function dplyr::replace doesn't work in my R version)
colnames(df4)[colnames(df4) == "value.y"] <- "value"

# > df4
#   id id2 value
# 1  d   4     201

# I update the df1 with the df4$value. This step is necessary to update only the rows of df1 in which df1$value is NA
setDT(df1)[setDT(df4), on = c("id","id2"), `:=`(value = i.value)]

# > df1
#    id id2 value
# 1:  a   1   100
# 2:  b   2   101
# 3:  c   3    50
# 4:  d   4   201

# I filter only the rows in which both value.x and value.y are NAs
df3 <- as_tibble(df3) %>%
  filter(!is.na(value.x), !is.na(value.y)) %>% 
  dplyr::select(id, id2, value.y)

# > df3
# # A tibble: 1 x 3
#   id      id2 value.y
#   <chr> <dbl>   <dbl>
# 1 c         3     200

# I rename column df3$value.y to value
colnames(df3)[colnames(df3) == "value.y"] <- "value"

# I bind by rows df1 and df3 and I order by the column id
df5 <- rbind(df1, df3) %>% 
  arrange(id)

# > df5
#   id id2 value
# 1  a   1   100
# 2  b   2   101
# 3  c   3    50
# 4  c   3   200
# 5  d   4   201

Answer 1

这里有一种使用full_join和gather的方法

library(dplyr)

left_join(df1, df2, by = c("id","id2")) %>%
   tidyr::gather(key, value, starts_with("value"), na.rm = TRUE) %>%
   select(-key)

#   id id2 value
#1   a   1   100
#2   b   2   101
#3   c   3    50
#7   c   3   200
#8   d   4   201

对于最新的情况，我们可以

left_join(df1, df2, by = c("id","id2")) %>%
   tidyr::gather(key, value, starts_with("value")) %>%
   group_by(id, id2) %>%
   filter((all(is.na(value)) & !duplicated(value)) | !is.na(value)) %>%
   select(-key)

#  id      id2 value
#  <chr> <int> <int>
#1 a         1   100
#2 b         2   101
#3 c         3    50
#4 e         5    NA
#5 c         3   200
#6 d         4   201

Answer 2

与data.table的左联接：

library(data.table)
setDT(df1); setDT(df2)

df2[df1, on=.(id, id2), .(value = 
  if (.N == 0) i.value 
  else na.omit(c(i.value, x.value))
), by=.EACHI]

   id id2 value
1:  a   1   100
2:  b   2   101
3:  c   3    50
4:  c   3   200
5:  d   4   201

它的工作原理:语法是x[i, on=, j, by=.EACHI]：对于i = df1的每一行都是j。

在本例中，j = .(value = expr)中.()是list()的快捷方式，因为j通常应该返回列列表。

关于表达式，.N是为i = df1的每一行找到的x = df2行数，所以如果找不到匹配的值，我们就从i保存值；否则，我们保存两个表中的值，删除缺失的值。

直截了当的方式：

bind_rows(df1, semi_join(df2, df1, by=c("id", "id2"))) %>% 
  group_by(id, id2) %>% 
  do(if (nrow(.) == 1) . else na.omit(.))

# A tibble: 5 x 3
# Groups:   id, id2 [4]
  id      id2 value
  <chr> <dbl> <dbl>
1 a         1   100
2 b         2   101
3 c         3    50
4 c         3   200
5 d         4   201

备注。dplyr的方式有点尴尬，因为需要do()来获得动态确定的行数，但是do()通常是不受欢迎的，不支持n()和其他帮助函数。data.table方式有点尴尬，因为没有简单的半连接功能。

数据

df1 <- data.frame(id=c('a', 'b', 'c', 'd'), id2=c(1,2,3,4),value=c(100, 101, 50, NA))
df2 <- data.frame(id=c('c', 'd', 'e'),id2=c(3,4, 5), value=c(200, 201, 300))

> df1
  id id2 value
1  a   1   100
2  b   2   101
3  c   3    50
4  d   4    NA
> df2
  id id2 value
1  c   3   200
2  d   4   201
3  e   5   300

Answer 3

通过基R的另一个想法是从df2中删除与df1不匹配的行，按行绑定两个数据帧(rbind)，并省略NAs，即

na.omit(rbind(df1, df2[do.call(paste, df2[1:2]) %in% do.call(paste, df1[1:2]),]))

#  id id2 value
#1  a   1   100
#2  b   2   101
#3  c   3    50
#5  c   3   200
#6  d   4   201

为了满足您的新需求，我们可以根据您的条件保留相同的rbind方法和过滤器。

dd <- rbind(df1, df2[do.call(paste, df2[1:2]) %in% do.call(paste, df1[1:2]),])
dd[!!with(dd, ave(value, id, id2, FUN = function(i)(all(is.na(i)) & !duplicated(i)) | !is.na(i))),]

#  id id2 value
#1  a   1   100
#2  b   2   101
#3  c   3    50
#5  e   5    NA
#6  c   3   200
#7  d   4   201