在R mutate中使用条件和总结函数

Question

我目前在R中有一个数据框，看起来像这样

   V1 V2 V3 V4 Animal

1  2  2  3  5  Dog

2  2  4  3  1  Dog

3  1  4  1  1  Cat

4  5  5  1  3  Cat

5  5  5  5  3  Bird

6  3  3  3  4  Bird

我用group_by将数据按动物分组。我想创建一个新的列V6，它采用列V4，将较低的值除以较高的值，如果该值小于0.5，则V6= A，ifelse则V6 = b..有没有办法在R中使用带条件语句的mutate函数？实际的数据框要大得多，所以我宁愿不用手动操作。这是我希望最终数据框的样子

   V1 V2 V3 V4 Animal V6

1  2  2  3  5  Dog  A

2  2  4  3  1  Dog  A

3  1  4  1  1  Cat  A

4  5  5  1  3  Cat  A

5  5  5  5  3  Bird B

6  3  3  3  4  Bird B

这就是我开始做的

df %>% mutate(Type = if(min/max < .5)A,
              ifelse, B)

但我知道这是不对的。非常感谢。

Answer 1

您也可以在没有ifelse的情况下做到这一点

 df1 %>% 
   group_by(Animal) %>% 
   mutate(Type= c('A', 'B')[((min(V4)/max(V4)) >=0.5)+1L])
#  V1 V2 V3 V4 Animal Type
#1  2  2  3  5    Dog    A
#2  2  4  3  1    Dog    A
#3  1  4  1  1    Cat    A
#4  5  5  1  3    Cat    A
#5  5  5  5  3   Bird    B
#6  3  3  3  4   Bird    B

Answer 2

使用dplyr您可以尝试这个

dat %>% group_by(Animal) %>% mutate(new = ifelse(min(V4)/max(V4) < 0.5, "A", "B"))

#Source: local data frame [6 x 6]
#Groups: Animal

#  X1 V2 V3 V4 Animal new
#1  2  2  3  5    Dog   A
#2  2  4  3  1    Dog   A
#3  1  4  1  1    Cat   A
#4  5  5  1  3    Cat   A
#5  5  5  5  3   Bird   B
#6  3  3  3  4   Bird   B