使用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