如何在數據幀被分割後獲取每個數據幀的名稱？

Question

library(dplyr) 
library(purrr) 
library(knitr) 
df <- tibble(
    letter = sample(letters[1:10], 100, replace = TRUE), 
    nums = rep(1:10, 10), 
    a = rnorm(100), 
    b = rnorm(100), 
    c = rnorm(100), 
    d = rnorm(100) 
) 

df %>% 
    split(.$letter) %>% 
    map(~ group_by(., nums) %>% 
     summarise(a = sum(a)) %>% 
     kable(caption = paste("it is table", substitute(.))) 
    ) 

正如上面的代碼所示，我想設置標題類似於「它是表a」，「它是表b」......在數據框被分開之後。

Answer 1

這是否需要單個%>%管道？否則，你可以很容易地做到這一點在兩個步驟：

summarized <- df %>% 
    split(.$letter) %>% 
    map(~ group_by(., nums) %>% 
     summarise(a = sum(a))) 

lapply(names(summarized), function(letter)  
    kable(summarized[letter], caption = paste("it is table", letter))) 

降價表，但是，沒有字幕的kable()。使用format="html"或format="latex"可以獲得支持字幕的輸出格式。