从R中的双精度列表中提取5的最小倍数

我想从双打列表中提取5的最小倍数。以下是一个示例数据帧：

library(tidyverse)

z <- tribble(
  ~x,
  c(65, 80, 101),
  c(70, 66, 92),
  c(65, 42, 84),
  c(30, 70, 101),
  c(82, 66, 55)
)

库（tidyverse）
z以下是一种将5的最小倍数相加的方法：

z$y <- vapply(z$x, function(e) min(e[e %% 5 == 0]), numeric(1))


# A tibble: 5 x 2
  x             y
  <list>    <dbl>
1 <dbl [3]>    65
2 <dbl [3]>    70
3 <dbl [3]>    65
4 <dbl [3]>    30
5 <dbl [3]>    55

z$y您可以使用来自purrr的映射，将函数应用于每个嵌套的TIBLE。我认为这应该奏效：

library(purrr)
z %>% mutate(y=map_dbl(x,~min(.x[.x %% 5==0])))
# A tibble: 5 x 2
  x             y
  <list>    <dbl>
1 <dbl [3]>    65
2 <dbl [3]>    70
3 <dbl [3]>    65
4 <dbl [3]>    30
5 <dbl [3]>    55

5的最小倍数的最小奇数？
library(purrr)
z %>% mutate(y=map_dbl(x,~min(.x[.x %% 5==0])))
# A tibble: 5 x 2
  x             y
  <list>    <dbl>
1 <dbl [3]>    65
2 <dbl [3]>    70
3 <dbl [3]>    65
4 <dbl [3]>    30
5 <dbl [3]>    55

z %>% mutate(y=map(x,~min(.x[.x %% 5==0]))) %>% unnest(y)