Добавление строк заголовка для группировки столбцов в R - PullRequest
Новая
       8

Добавление строк заголовка для группировки столбцов в R

0 голосов
/ 24 мая 2018

Я пытаюсь сгруппировать заголовки, используя r.Вот входной фрейм данных, который я использую. 

  |usage     |flavor |variable     |level |      mean|        se|
  |:---------|:------|:------------|:-----|---------:|---------:|
  |Every Day |Yes    |a            |NA    | 0.1844236| 0.0645649|
  |Every Day |No     |a            |NA    | 0.2074303| 0.0830913| 
  |Some Days |Yes    |a            |NA    | 0.1748468| 0.0279065| 
  |Some Days |No     |a            |NA    | 0.2720068| 0.0512438|

Я использовал следующий код для группировки 

kable(data) %>%
  kable_styling("striped") %>%
  add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2))

И получаю вывод: 

        |V1           |V2           |V3           |V4           |
  |:--------|:------------|:------------|:------------|:------------|
  |usage    |Every Day    |Every Day    |Some Days    |Some Days    |
  |flavor   |Yes          |No           |Yes          |No           |
  |variable |a            |a            a             |a            |
  |level    |NA           |NA           |NA           |NA           |
  |mean     |0.1844236    |0.2074303    |0.1748468    |0.2720068    |

То, что я пытаюсь сжать во входном фрейме данных, выглядит примерно так: 

            |EVERYDAY                   |SOMEDAYS                   
            ---------------------------------------------------------
            |flavor yes   |flavor no    |flavor yes   |flavor no    |
  |:--------|:------------|:------------|:------------|:------------|
  |variable |a            |a            a             |a            |
  |level    |NA           |NA           |NA           |NA           |
  |mean     |0.1844236    |0.2074303    |0.1748468    |0.2720068    |

Как можно сделать эту группировку, как описано выше.

Я попробовал kableextra, которая добавляет еще одну строку симена, такие как v1 v2 v3 v4. 

kable(data, format = "html", caption = "Demo Table") %>%
  kable_styling(bootstrap_options = "striped",
                full_width = F) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
  add_footnote(c("table footnote"))
...