R编程：多个表上的ifelse

Question

我只是冒险进入 R 编程并找到自己的方式。

假设我有一张如下表：

Store | Product | Sales
X | A | 2
X | B | 1
X | C | 3
Y | A | 1
Y | B | 2
Y | C | 5
Z | A | 3
Z | B | 6
Z | C | 2

我需要根据另一个表更改某些产品的销售值。请在下面找到：

Product | Sales
A | 10
B | 7
C | 15

我的决赛桌应该是：

Store | Product | Sales
X | A | 10
X | B | 7
X | C | 15
Y | A | 10
Y | B | 7
Y | C | 15
Z | A | 10
Z | B | 7
Z | C | 15

我现在有两种方法可以做到这一点： 1) 使用连接 2) 在 for 循环中使用 if-else 语句来子集

有没有其他方法可以更有效地减少步骤？ 提前致谢！

编辑：我之前忘了提到一个例外。如果我的数据集如下所示怎么办？

商店 |产品 |销售量
X |一个 | 2
X |乙| 1
X | C | 3
X | D | 4
是 |一个 | 1
是 |乙| 2
是 | C | 5
是 | D | 2
Z |一个 | 3
Z |乙| 6
Z | C | 2
Z | D | 3

有一个额外的产品 (D) 与销售。如果该产品不存在于第二个表中，我想保留该产品的销售价值，即：

产品 |销售量 一个 | 10 乙| 7 C | 15

Answer 1

这个join怎么样？

由于您只想更改某些Products 的Sales 值，为了说明这一点，我只考虑了lookup_df 中的两个产品

library(dplyr)

df %>%
  left_join(lookup_df, by = "Product", suffix = c("_Original", "_New")) %>%
  mutate(Sales_New = coalesce(Sales_New, Sales_Original))

输出为：

  Store Product Sales_Original Sales_New
1     X       A              2        10
2     X       B              1         1
3     X       C              3        15
4     Y       A              1        10
5     Y       B              2         2
6     Y       C              5        15
7     Z       A              3        10
8     Z       B              6         6
9     Z       C              2        15

样本数据：

df <- structure(list(Store = c("X", "X", "X", "Y", "Y", "Y", "Z", "Z", 
"Z"), Product = c("A", "B", "C", "A", "B", "C", "A", "B", "C"
), Sales = c(2L, 1L, 3L, 1L, 2L, 5L, 3L, 6L, 2L)), .Names = c("Store", 
"Product", "Sales"), class = "data.frame", row.names = c(NA, 
-9L))

lookup_df <- structure(list(Product = c("A", "C"), Sales = c(10L, 15L)), .Names = c("Product", "Sales"), class = "data.frame", row.names = c(NA, 
-2L))
#  Product Sales
#1       A    10
#2       C    15

Answer 2

如果使用查找向量，则相对较短：

d <- read.table(text = "
Store | Product | Sales
X | A | 2
X | B | 1
X | C | 3
Y | A | 1
Y | B | 2
Y | C | 5
Z | A | 3
Z | B | 6
Z | C | 2", sep = "|", header = T, stringsAsFactors = F)

lookup <- read.table(text = "Product | Sales
A | 10
B | 7
C | 15", sep = "|", header = T, stringsAsFactors = F)

lookup$Product <- gsub("^\\s+|\\s+$", "", lookup$Product) # remove spaces
lookup <- setNames(lookup$Sales, lookup$Product) # convert to vector
d$Product <- gsub("^\\s+|\\s+$", "", d$Product) # remove spaces

d$Sales <- lookup[d$Product] # main part
d