r - 在子集之后维护一组一致的行

Question

这个问题在这里已经有了答案:

How to join (merge) data frames (inner, outer, left, right) (13 个回答)

关闭 2 年前。

我有一个场景需要呈现一致的数据表，并经常刷新。

我的源数据可能如下所示:

Item     | Quantity
-------------------
Dog      | 2
Cat      | 1
Apple    | 6
Banana   | 2
Kiwi     | 4

我只需要来 self 的来源的一些项目，这些项目可能会出现也可能不会出现。目前我正在使用子集来选择感兴趣的项目:

groceries <- subset(data, item == "Apple"  | 
                           item == "Orange" | 
                           item == "Banana" |
                           item == "Kiwi"
)

结果是:

Item     | Quantity
-------------------
Apple    | 6
Banana   | 2
Kiwi     | 4

但是，我需要为那些未包含在源中的项目包含空白行，以便我的表在刷新之间保持一致:

Item     | Quantity
-------------------
Apple    | 6
Orange   |
Banana   | 2
Kiwi     | 4

请问有人能指导我如何最好地处理上述问题吗？

Answer 1

我们可以使用 merge 和 all.x = TRUE:

# data
df1 <- read.table(text = "Item Quantity
Dog 2
Cat 1
Apple 6
Banana 2
Kiwi 4", header = TRUE)

# lookup table
x <- data.frame(Item = c("Apple", "Orange", "Banana", "Kiwi"))

# merge
merge(x, df1, by = "Item", all.x = TRUE)
#     Item Quantity
# 1  Apple        6
# 2 Banana        2
# 3   Kiwi        4
# 4 Orange       NA