2017-08-30 18 views
1
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」...のように設定したいのですが、データフレームが分割された後です。データフレームを分割した後、各データフレームの名前を取得する方法は?

+0

'format =" latex "' – akrun

答えて

2

パイプラインは%>%である必要がありますか?そうしないと、簡単に二段階でそれを行うことができます。

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"を使用します。

関連する問題