当数据的行数多于替换项时，如何替换按特定条件分组的所有数据行？

Posted 2023-01-31

dput（日期站点代码D1 D2 D3 D4 D5 D6 D7 D8 D9 H RowTotal1 2019-07-03 JUP AAGA 0 0 0 0 0 0 0 0 1 0 15 162 2019-07-03 JUP EFAS 0 0 0 0 0 0 0 0 0 0 1 13 2019-07-03 JUP MANG 0 0 0 0 0 0 0 0 0 0 1 14 2019-07-03 JUP MCAV 0 0 0 0 0 0 0 0 0 0 128 1285 2019-07-03 JUP MDEC 0 0 0 0 0 0 0 0 0 0 1 16 2019-07-03 JUP MMEA 0 0 0 0 0 0 0 0 0 0 1 17 2019-07-03 JUP OANN 0 0 0 0 0 0 0 0 0 2 28 2019-07-03 JUP PAST 0 0 0 0 0 0 0 0 0 0 17 179 2019-07-03 JUP SBOU 0 0 0 0 0 0 0 0 0 0 2 210 2019-07-03 JUP SINT 0 0 0 0 0 0 0 0 0 9 911 2019-07-03 JUP SRAD 0 0 0 0 0 0 0 0 0 1 112 2019-07-03 JUP SSID 0 0 0 0 0 0 0 0 0 5 513 2019-07-19单反ISIN 0 0 0 0 0 0 0 0 0 0 1 114 2019-07-19 SLR MCAV 0 0 0 0 0 0 0 0 0 1 1 216 2019-07-19 SLR PCLI 0 0 0 0 0 0 0 0 0 2 5 717 2019-07-19 SLR SBOU 0 0 0 0 0 0 0 0 0 1 118 2019-07-19 SLR SSID 0 0 0 0 0 0 0 0 1 0 8 919 2019-07-26 PMP AAGA 0 0 0 0 0 0 0 0 0 0 7 720 2019-07-26 PMP ACER 0 0 0 0 0 0 0 0 0 0 57 5721 2019-07-26 PMP CNAT 0 0 0 0 0 0 0 0 0 0 1 122 2019-07-26 PMP DSTO 0 0 0 0 0 0 0 0 0 1 1 223 2019-07-26 PMP MAUR 0 0 0 0 0 0 0 0 0 14 1424 2019-07-26 PMP MCAV 0 0 0 0 0 0 0 0 0 14 285 299）

这是我的数据集。我正在尝试通过添加满足相同SiteTotal和RowTotals条件的Date，用Site添加新列。我在dplyr中尝试了多种方法：group_by，summarize等。我一直遇到替换问题，即行数少于数据集。例如，对于此数据集，使用group_by(Date, Site, RowTotal)替换3，但有24行。是否有一种方法可以填充符合条件的每一行。我的最终目标是找到每个网站在特定日期的“代码”流行率。

我想要的预期列将是SiteTotal，如下所示：

（（184、184、184、184、184、184、184、184、184、184、184、184、184、429、429、429、429、429、429、429、81、81、81、81、81）]] >

最终目标是将我的RowTotal列除以SiteTotal列，以在特定日期和站点查找“代码流行度”。

dput（日期站点代码D1 D2 D3 D4 D5 D6 D7 D8 D9 H RowTotal 1 2019-07-03 JUP AAGA 0 0 0 0 0 0 0 1 0 15 16 2 2019-07-03 JUP EFAS 0 0 0 0。 ..

答案

您可以使用mutate添加一列