在dplyr :: mutate中使用`map`代替`apply`

Question

“哪个4位数乘以4会使自己倒数？”

这是尝试使用R解决这个相对简单的数学问题

library(tidyverse)
library(stringi)

expand.grid(replicate(4, 0:9, simplify = FALSE)) %>%
  filter(Var1 !=0, Var4 !=0) %>%
  transmute(newcol=as.numeric(do.call(paste0,.))) %>%
  filter(newcol<2500) %>% 
  mutate(newcol2=4*newcol) %>% 
  filter(newcol==stri_reverse(newcol2))

第二种方法是：

expand.grid(replicate(4, 0:9, simplify = FALSE)) %>%
  filter(Var1 !=0, Var4 !=0) %>%
  transmute(newcol=as.numeric(do.call(paste0,.))) %>%
  filter(newcol<2500) %>% 
  mutate(newcol2=4*newcol) %>% 
  filter(newcol==apply(.[c("newcol2")],1,function(x) paste0(floor(x/ 10^(0:(nchar(x) - 1))) %% 10,collapse=""))) 

你能告诉我怎么用purrr::map ，而不是apply在最后一步？

Answer 1

您可以将最后一个filter调用更改为以下内容。

filter(newcol == map(newcol2, ~paste0(floor(./ 10^(0:(nchar(.) - 1))) %% 10, collapse = "")))

或这个

filter(newcol == map_chr(newcol2, ~paste0(floor(./ 10^(0:(nchar(.) - 1))) %% 10, collapse = "")))