检查特定组中是否存在字符并在 R 中创建新列

Question

提前感谢您抽出宝贵时间阅读这篇文章。我有一个看起来像这样的data.frame

time   offspring
 1         1
 1         2
 2         1
 2         5
 3         1
 3         4

我想检查每个时间点的后代是否与上一个时间点的后代匹配。更明确地说，我想看看时间点 1 和时间点 2 的后代是否存在于时间点 3 中。

在这种情况下，我想在新列中为后代分配值 1，而不是在新列中分配值 0.4。 例如

time   offspring  alpha
 1         1       1
 1         2       0.4
 2         1       1
 2         5      0.4
 3         1       1
 3         4       1

非常感谢任何帮助和评论。

Answer 1

一个dplyr 选项可以是：

df %>%
 group_by(offspring) %>%
 mutate(alpha = pmax(0.4, all(1:3 %in% time)))

   time offspring alpha
  <int>     <int> <dbl>
1     1         1   1  
2     1         2   0.4
3     2         1   1  
4     2         5   0.4
5     3         1   1  
6     3         4   0.4

如果仅在时间段 3 出现的病例也应视为病例：

df %>%
 group_by(offspring) %>%
 mutate(alpha = pmax(0.4, all(1:3 %in% time) | unique(time) == 3))

   time offspring alpha
  <int>     <int> <dbl>
1     1         1   1  
2     1         2   0.4
3     2         1   1  
4     2         5   0.4
5     3         1   1  
6     3         4   1