使用dplyr :: case_when时，右侧的逐行min（）

Question

我试图在一次观察中获取一个变量中较小的变量，并在R中的条件dplyr :: case_when语句中获取一个固定数。但是min（）语句与整个变量向量的最小观察值进行比较，即不是针对每个观察值。

library(tidyverse)
data_frame(spc = rep(c("cat", "dog"), 3), z = 1:6) %>%
   mutate(
    dogsmax3 = case_when(
      spc == "dog" ~ min(z, 3),
      TRUE ~ 0))
 #  spc       z dogsmax3
 #  <chr> <int>    <dbl>
 #1 cat       1        0
 #2 dog       2        1
 #3 cat       3        0
 #4 dog       4        1
 #5 cat       5        0
 #6 dog       6        1

当我寻找产生此结果的语句时：

 #  spc       z dogsmax3
 #  <chr> <int>    <dbl>
 #1 cat       1        0
 #2 dog       2        2
 #3 cat       3        0
 #4 dog       4        3
 #5 cat       5        0
 #6 dog       6        3

那么，对于更好的方法有什么建议吗？

Answer 1

使用rowwise 。 取而代之的case_when你也可以使用一个ifelse ：

library(tidyverse)
data_frame(spc = rep(c("cat", "dog"), 3), z = 1:6) %>%
   rowwise() %>%
   mutate(dogsmax3 = ifelse(spc == "dog", min(z,3), 0)) %>%
   ungroup() ## to revert the grouping by rows

Answer 2

您可以使用?pmin代替min

data_frame(spc = rep(c("cat", "dog"), 3), z = 1:6) %>%
  mutate(
    dogsmax3 = case_when(
      spc == "dog" ~ pmin(z, 3),
      TRUE ~ 0)
  )

# A tibble: 6 x 3
  spc       z dogsmax3
  <chr> <int>    <dbl>
1 cat       1     0   
2 dog       2     2.00
3 cat       3     0   
4 dog       4     3.00
5 cat       5     0   
6 dog       6     3.00