R 将列表的每个 data.frame 打印到单独的表中，标题为 data.frame 名称和描述

Question

跟进我的之前的问题。（感谢@akrun的帮助。

）将列表的每个 data.frame 打印到单独的表格中，标题为 data.frame 名称和来自另一个对象的描述。我尝试的代码如下。无法获取表格标题中的描述。

我在这里缺少什么？

如果这有效：

Names1 %>% 
      filter(Name == quote(df1)) %>% 
      pull(Desp)

为什么这在 imap 中不起作用？

Names1 %>% 
 filter(Name == quote(.y)) %>% 
 pull(Desp)

完整代码

library(tidyverse)
library(kableExtra)
#> 
#> Attaching package: 'kableExtra'
#> The following object is masked from 'package:dplyr':
#> 
#>     group_rows

df1 <- data.frame(X = 1:3)
df2 <- data.frame(Y = 5:6)

ls1 <-
  list(df1, df2) %>% 
  set_names(c("df1", "df2"))

ls1
#> $df1
#>   X
#> 1 1
#> 2 2
#> 3 3
#> 
#> $df2
#>   Y
#> 1 5
#> 2 6

Names1 <- 
  tibble(
    Name = c("df1", "df2")
  , Desp = c("Desp1", "Desp2")
  )

Names1
#> # A tibble: 2 x 2
#>   Name  Desp 
#>   <chr> <chr>
#> 1 df1   Desp1
#> 2 df2   Desp2

Names1 %>% 
  filter(Name == quote(df1)) %>% 
  pull(Desp)
#> [1] "Desp1"


imap(
    .x = ls1
  , .f = ~ {
    kbl(
       x       = .x
     , format  = "markdown"
     , caption = paste0("Test ", .y, " ( ", 
                        Names1 %>% 
                          filter(Name == quote(.y)) %>% 
                          pull(Desp)
                        , " )"
                        )
    )
    }
  )
#> $df1
#> 
#> 
#> Table: Test df1 (  )
#> 
#> |  X|
#> |--:|
#> |  1|
#> |  2|
#> |  3|
#> 
#> $df2
#> 
#> 
#> Table: Test df2 (  )
#> 
#> |  Y|
#> |--:|
#> |  5|
#> |  6|

Answer 1

.y 已在 imap 中被引用，如 paste0("Test ", .y, " ( ", 返回 Table: Test df1 ( 所以你不需要引用。

注意：

Names1 %>% 
  filter(Name == "df1") %>% 
  pull(Desp)
# [1] "Desp1"

所以如果你不包含引用，它会起作用：

imap(
  .x = ls1
  , .f = ~ {
    kbl(
      x       = .x
      , format  = "markdown"
      , caption = paste0("Test ", .y, " ( ", 
                         Names1 %>% 
                           filter(Name == .y) %>% 
                           pull(Desp)
                         , " )"
      )
    )
  }
)
# $df1


# Table: Test df1 ( Desp1 )

# |  X|
# |--:|
# |  1|
# |  2|
# |  3|

# $df2


# Table: Test df2 ( Desp2 )

# |  Y|
# |--:|
# |  5|
# |  6|

你这样做的方式，它正在过滤那些不在 data.frame 中（.y）。

imap(
  .x = ls1
  , .f = ~ {
    .y
  }
)
# $df1
# [1] "df1"

# $df2
# [1] "df2"


imap(
  .x = ls1
  , .f = ~ {
    quote(.y)
  }
)
# $df1
# .y

# $df2
# .y