将函数应用于数据帧价值观

函数不是 Vectorized . 要么我们用 rowwise 或 Vectorize 功能

library(dplyr)
library(toOrdinal)
d %>% 
    mutate(across(everything(), ~  Vectorize(toOrdinal)(.),.names = "ord_{col}"))

# A tibble: 4 x 4
#      a     b ord_a ord_b
#  <dbl> <dbl> <chr> <chr>
#1    45     3 45th  3rd  
#2     1    19 1st   19th 
#3     2     8 2nd   8th  
#4     9    12 9th   12th 

划船

d %>%
   rowwise() %>%
   mutate(across(everything(), ~ toOrdinal(.), .names = "ord_{col}")) %>%
   ungroup

-输出

#一张桌子:4 x 4
#<dbl><dbl><chr><chr>
#1 45 3 45第3
#2119第1 19页
#4 9 12 9第12

或者另一个选择是用 pmap 从 purrr

library(purrr)
library(stringr)
pmap_dfr(d, ~  map_dfr(list(...), toOrdinal)) %>% 
   rename_all(~ str_c('ord_', .)) %>%
   bind_cols(d, .)

-输出

#<dbl><dbl><chr><chr>
#1 45 3 45第3
#2119第1 19页
#4 9 12 9第12