数据的逐行 bool 比较

Question

我已按适当的分组对我的数据进行了分组，并且我需要确保对于 Group1 和 Group2 的每个唯一组合，“x”和“y”值彼此相等。换句话说，我可以使用什么代码来循环遍历这个数据集并确保 A1x == A1y 和 A2x == A2y 等。

"Group1","Group2","group3","values"
"A"        "1"       x       10
"A"        "1"       y       10
"A"        "2"       x       15 
"A"        "2"       y       15

为了帮助简化答案，这里是示例中的 data.frame

    d <- data.frame(Group1= c("A", "A", "A", "A"), 
                    Group2= c("1", "1", "2", "2"), 
                    group3= c("x", "y", "x", "y"), 
                    values= c(10, 10, 15, 15))

Answer 1

使用 dplyr，您可以:

d %>%
 group_by(Group1, Group2) %>%
 mutate(cond = all(values == first(values)))

  Group1 Group2 group3 values cond 
  <fct>  <fct>  <fct>   <dbl> <lgl>
1 A      1      x          10 TRUE 
2 A      1      y          10 TRUE 
3 A      2      x          15 TRUE 
4 A      2      y          15 TRUE 

或者:

d %>%
 group_by(Group1, Group2) %>%
 mutate(cond = n_distinct(values) == 1)