将map_dbl输出转换为tibble in R tidyverse

我在R中处理大量的数据帧，我想找到列数最少和最多的数据帧，并找出它们的列名之间的差异。然而，我在将map_dbl结果转换为常规tibble时遇到了麻烦

first_df   = data.frame(matrix(rnorm(20), nrow=10))
second_df  = data.frame(matrix(rnorm(20), nrow=4))
third_df   = data.frame(matrix(rnorm(20), nrow=5))

library(dplyr)
library(purrr)
library(tibble)
library(tidyr)

# capturing all the data frames
mget(ls(pattern = "_df"))  %>% 
map_dbl(ncol)      %>% 
as_tibble() 


# expected output
# first_df   2
# second_df  5

## Finding the difference in columns
diff <- setdiff(colnames(first_df), colnames(second_df ))

first_df=data.frame（矩阵（rnorm（20），nrow=10））
second_df=data.frame（矩阵（rnorm（20），nrow=4））
第三个函数=数据帧（矩阵（rnorm（20），nrow=5））
图书馆（dplyr）
图书馆（purrr）
图书馆（tibble）
图书馆（tidyr）
#捕获所有数据帧
mget（ls（pattern=“_-df”））%>%
map_dbl（ncol）%>%
作为_tible（）
#预期产量
#第一组df 2
#第二组df 5
##查找列中的差异
diff您可以执行以下操作：

library(tidyverse)

min_max <- mget(ls(pattern = "_df")) %>%
  map_dbl(ncol) %>%
  enframe() %>%
  arrange(value) %>%
  slice(1, n())

min_max

# A tibble: 2 x 2
#  name      value
#  <chr>     <dbl>
#1 first_df      2
#2 second_df     5

setdiff(names(get(min_max$name[2])), names(get(min_max$name[1])))
#[1] "X3" "X4" "X5"

库（tidyverse）
最小值最大值%
map_dbl（ncol）%>%
enframe（）%>%
排列（值）%>%
切片（1，n（））
最小值最大值
#一个tibble:2x2
#名称值
#       
#1第一个_df 2
#2秒_df 5
setdiff（名称（get（min_max$name[2]））、名称（get（min_max$name[1]））
#[1] “X3”“X4”“X5”
请查看前面的问题，因为这是重复的：