r - dplyr:将组中的所有值除以组的第一个值

Question

我的 df 看起来像这样:

ID    Obs    Value
1     1      26
1     2      13
1     3      52
2     1      1,5
2     2      30

使用 dplyr，我添加了附加列 Col，它是该列值中的所有值除以该列中组的第一个值的结果。

ID    Obs    Value    Col
1     1      26       1
1     2      13       0,5
1     3      52       2
2     1      1,5      1
2     2      30       20

我该怎么做？

Answer 1

按“ID”分组后，使用mutate通过将“值”除以 first 来创建新列“值(value)”

library(dplyr)
df1 %>%
   group_by(ID) %>%
   mutate(Col = Value/first(Value))

如果first 'Value' 为 0，我们不想使用它，然后用逻辑表达式对 'Value' 进行子集化，然后取 first其中

df1 %>%
   group_by(ID) %>%
    mutate(Col = Value/first(Value[Value != 0]))

<小时/>

或者在base R中

df1$Col <- with(df1, Value/ave(Value, ID, FUN = head, 1))

注意:“Value”中的逗号表明它是 character柱子。在这种情况下，应首先将其更改为十进制( . )，如果是这种情况，请转换为 nunmeric然后进行除法。可以一边读取数据一边完成