代码之家 › 专栏 › 技术社区 › Alex

如何传递一列文件名来改变并返回dplyr中的列数

rlang dplyr r

Alex · 技术社区 · 7 年前

我有以下功能


colr <- function(file){
  a <- file %>% 
    read_xlsx() 

  ncol(a)
}

我想传递一个tible——它包含一列我的excel文件名给这个函数,并生成一个新的列,告诉我excel电子表格中的列数。

> file.list
   <chr>
   file_a.xlsx
   file_b.xlsx
   file_c.xlsx

我想要以下的

> file.list       ncols
   <chr>          <int>
   file_a.xlsx      10
   file_b.xlsx      10
   file_c.xlsx       2

这就是我试过的

tibble(file.list) %>% 
  mutate(ncols =  colr(file.list))

但我错了

错误: path 必须是字符串

然后我试着用 quo

tibble(file.list) %>% 
  mutate(ncols =  colr(quo(file.list)))

我最后也犯了同样的错误。

我做错什么了?

1 回复 | 直到 7 年前

Ronak Shah 7 年前

正如@Lyngbakr在评论中所建议的,我们可以使用 map_int 或 rowwise 对于每个 file.list

library(dplyr)
library(purrr)

tibble::tibble(file.list) %>% 
       mutate(ncols =  map_int(file.list, colr))


tibble::tibble(file.list) %>% 
         rowwise() %>%
         mutate(ncols =  colr(file.list))

推荐文章

johannes · 从字符串分析和计算quosures

8 年前

Aaron Cooley · 使用dplyr的函数编程

8 年前

deeenes · dplyr::变异unquote RHS

8 年前

rcorty · 在函数F内,使用F的参数作为update()的参数

8 年前

sztal · 使用tidyeval工具(如“!!”和“:=”)构建列表

8 年前

AaronP · 将函数绑定到环境以访问存储的变量,其缺点是什么?

8 年前

Shantanu Ben Bolker · 为什么表达式LHS中的“rlang::sym”和“rlang::quo_name”行为相似?

8 年前

piptoma · 具有数据帧和变量参数的Lappy函数

8 年前

Kay · 在编程中使用dplyr filter()

8 年前

tws · 如何使用dplyr和tidy评估以编程方式过滤数据帧?

8 年前