匹配列，在 R 中创建循环

Question

我有以下问题：

我有看起来像这样的数据框。我有价格，3 个 X 和 2 个 R。

Date    Name  Price  Interest
01.02.10 X  120     0.2
01.02.10 R  120     0.3
01.02.10 X  130     0.8
01.02.10 X  140     0.4
01.02.10 R  130     0.2
etc.

我想告诉 R 寻找价格相同的 X&R 对，然后删除其余的。所以这应该会产生：2 个 X 和 2 个 R（在这种情况下）。

Date    Name  Price  Interest
01.02.10 X  120     0.2
01.02.10 R  120     0.3
01.02.10 X  130     0.8
01.02.10 R  130     0.2
etc.

为了更清楚（希望如此）：每个日期我都有很多不同的价格。每行有一个 X 或一个 R。每个日期有很多对，例如 X, Price = 120 & R, Price = 120 on Date 1. 但也有价格只匹配一个名称，例如有一个价格 = 140 仅用于名称= X。所以我希望 R 做的是：检查一个价格的匹配名称（即一个 X 和一个 R 存在相同的价格）并删除其余部分。实际上会产生相同数量的 X 和 R，因为我正在寻找对。

很抱歉无法发布我尝试过的内容。我什么都想不出来。

现在，到下一个问题： 如果成对存在，我想告诉 R 检查每一行。如果名称是 X，我希望它计算新价格，如果不只是打印现有价格。 我试过了

xx <- if(Name == "X"){Price + 100*interest} else print{Price}

但是没有用。

感谢帮助

干杯 丹妮

Answer 1

编辑： @Dwin 对 Q 的评论有点神秘，由于 Q 不清楚，我在 Q 的第 1 部分的第一次尝试不正确，我会尝试赎回我自己尝试扩展 DWin 的评论：

[假设dat 包含您在Q 中引用的数据。] 首先，将dat 与其自身合并：

> foo <- merge(dat[, -4], dat, by.x = "Date", by.y = "Date")
> head(foo)
      Date Name.x Price.x Name.y Price.y Interest
1 01.02.10      X     120      X     120      0.2
2 01.02.10      X     120      R     120      0.2
3 01.02.10      X     120      X     130      0.2
4 01.02.10      X     120      X     140      0.2
5 01.02.10      X     120      R     130      0.2
6 01.02.10      R     120      X     120      0.2

接下来，取出Price.x == Price.y 和 Name.x != Name.y所在的行

> (foo <- foo[with(foo, which(Price.x == Price.y & Name.x != Name.y)),])
       Date Name.x Price.x Name.y Price.y Interest
2  01.02.10      X     120      R     120      0.2
6  01.02.10      R     120      X     120      0.2
15 01.02.10      X     130      R     130      0.2
23 01.02.10      R     130      X     130      0.2

然后，去掉多余的列：

> (foo <- foo[, -(4:5)])
       Date Name.x Price.x Interest
2  01.02.10      X     120      0.2
6  01.02.10      R     120      0.2
15 01.02.10      X     130      0.2
23 01.02.10      R     130      0.2

最后，修正列名：

> names(foo) <- names(dat)
> foo
       Date Name Price Interest
2  01.02.10    X   120      0.2
6  01.02.10    R   120      0.2
15 01.02.10    X   130      0.2
23 01.02.10    R   130      0.2

---

第二件事可以使用ifelse来完成

with(dat, ifelse(Name == "X", Price + 100*Interest, Price))

这给了一些东西

> with(dat, ifelse(Name == "X", Price + 100*Interest, Price))
[1] 140 120 150 160 130

if() 不起作用的原因是 if() 只采用标量逻辑（单个 TRUE 或 FALSE），而 Name == "X" 返回一个逻辑向量：

> with(dat, Name == "X")
[1]  TRUE FALSE  TRUE  TRUE FALSE

在这些情况下，ifelse() 是您的朋友。