R 使用lapply的重新定位功能

@JilberUrbina的回答解决了您的问题.

But, since dplyr::relocate and magrittr::'%>%' are tidyverse functions, here's an alternative with apply's equivalent, purrr::map, and the recent anonymous function's syntax \(x):
(Toy data aux_before at the end)

library(tidyverse)

# ----------------
aux_after <- map(aux_before, \(x) relocate(x, id, .before = 1))

输出:

# Output
> aux_after
[[1]]
# A tibble: 1 × 3
     id name         homeworld
  <int> <chr>        <chr>    
1    31 Qui-Gon Jinn NA       

[[2]]
# A tibble: 1 × 3
     id name    homeworld
  <int> <chr>   <chr>    
1    79 Tarfful Kashyyyk 

[[3]]
# A tibble: 1 × 3
     id name         homeworld
  <int> <chr>        <chr>    
1    51 Ki-Adi-Mundi Cerea    

[[4]]
# A tibble: 1 × 3
     id name     homeworld
  <int> <chr>    <chr>    
1    14 Han Solo Corellia

玩具数据:

# Toy data
set.seed(123)

aux_before <- starwars %>% 
  select(name, homeworld) %>% 
  mutate(id = consecutive_id(name))

aux_before <- map(1:4, \(x) slice_sample(aux_before, n = 1))

> aux_before
[[1]]
# A tibble: 1 × 3
  name         homeworld    id
  <chr>        <chr>     <int>
1 Qui-Gon Jinn NA           31

[[2]]
# A tibble: 1 × 3
  name    homeworld    id
  <chr>   <chr>     <int>
1 Tarfful Kashyyyk     79

[[3]]
# A tibble: 1 × 3
  name         homeworld    id
  <chr>        <chr>     <int>
1 Ki-Adi-Mundi Cerea        51

[[4]]
# A tibble: 1 × 3
  name     homeworld    id
  <chr>    <chr>     <int>
1 Han Solo Corellia     14