循环根据 R 中的其他情况创建一个新变量（非常基本）

Question

我有一个包含三个变量的数据框：ID、group 和 nomminated_ID。 我想知道 nomated_ID 所属的 group。

我想象对于每种情况，我们采用 nomminated_ID，找到它所在的情况等于ID，然后将原始案例中的nomminated_Group变量设置为等于匹配案例中的group变量。 （如果没有匹配，请将其设置为 NA）

如果这可以在没有循环的情况下完成，我不会感到惊讶，所以我对解决方案持开放态度。非常感谢您的帮助。要知道，我在发帖之前确实尝试过寻找类似的问题。

Answer 1

您可以通过直接将结果分配到 data.frame 中的列来一步实现此目的，而无需使用 cbind：

df$nominated_group <- with(df, group[match(nominated_ID, ID)])
df
  ID group nominated_ID nominated_group
1  9   Odd            9             Odd
2  5   Odd            8            <NA>
3  2  Even            4            Even
4  4  Even            9             Odd
5  3   Odd            2            Even

我使用 with 作为引用df 的列，而无需重复写入 df$。

Answer 2

以下似乎有效；可能有更好的方法

> df <- data.frame(ID = c(9, 5, 2, 4, 3), 
+                  group = c("Odd", "Odd", "Even", "Even", "Odd"),
+                  nominated_ID = c(9, 8, 4, 9, 2)                 )
> df
  ID group nominated_ID
1  9   Odd            9
2  5   Odd            8
3  2  Even            4
4  4  Even            9
5  3   Odd            2
> nominated_Group <- df[match(df$nominated_ID, df$ID), ]$group
> newDF <- cbind(df, nominated_Group)
> newDF
  ID group nominated_ID nominated_Group
1  9   Odd            9             Odd
2  5   Odd            8            <NA>
3  2  Even            4            Even
4  4  Even            9             Odd
5  3   Odd            2            Even

Answer 3

您可以使用 transform、match 和数组索引以语法紧凑的方式完成此操作。使用@Henry的数据框：

df <- transform( df, nominated_group = group[match(nominated_ID, ID)])

> df
  ID group nominated_ID nominated_group
1  9   Odd            9             Odd
2  5   Odd            8            <NA>
3  2  Even            4            Even
4  4  Even            9             Odd
5  3   Odd            2            Even

Answer 4

可能不是最“直观”的方式，但是如果您使用nominal_ID作为第一个副本的合并索引并使用ID作为第一个副本的by索引，则将df与df合并也可以工作。第二个并保留所有行，您需要删除第二个 nomated_ID 列并重新排列顺序以使内容与上面的答案匹配：

merge(df,df, by.x=3, by.y=1, all.x=TRUE)[order(df$nominated_ID), c(2,3, 1, 4)]

  ID group.x nominated_ID group.y
5  4    Even            9     Odd
3  5     Odd            8    <NA>
2  2    Even            4    Even
1  3     Odd            2    Even
4  9     Odd            9     Odd