R Блокнот: разместить таблицы Knitr::kable рядом друг с другом?

Я пишу некоторые рисунки и таблицы в R Notebook, и у меня есть несколько таблиц, которые я хотел бы разместить рядом. Я вяжу блокнот в html. Код, который у меня есть на данный момент (ниже), работает, но обе таблицы выровнены по левому краю. Чего бы я действительно хотел, так это чтобы они появлялись бок о бок, но также были в центре. Любые предложения, пожалуйста? dt_tot и dt_tot_week — это data.tables.

knitr::kable(dt_tot, "html", caption = caption) %>%
  kableExtra::kable_styling(bootstrap_options = c("hover"),
                            full_width = FALSE, position = "float_left")

knitr::kable(dt_tot_week, "html", caption = caption) %>%
kableExtra::kable_styling(bootstrap_options = c("hover"),
                          full_width = FALSE, position = "float_left")

r knitr kableextra kable rnotebook
person astro person    schedule 10.05.2018    source источник
comment
Это может быть актуально: stackoverflow.com/q/31753897   -  person Frank    schedule 10.05.2018
comment
Это работает, спасибо! В идеале мне бы хотелось что-то, что я могу закодировать в R, а не в html, но это работает :)   -  person astro person    schedule 11.05.2018

Ответы (2)


arrow_upward
1
arrow_downward

Если вы вяжете в HTML, вы сможете использовать knitr::kables. Это дает мне две таблицы рядом:

library(tidyverse)
library(kableExtra)

knitr::kables(list(
  kable(caption = "Left Table",
    starwars %>%
      count(species) %>%
      filter(n > 1)
    ) %>% kable_styling(),
    kable(caption = "Right Table",
      starwars %>%
        count(homeworld) %>%
        filter(n > 1)
    ) %>% kable_styling()
    
  )
) %>% kable_styling()
person Amanda    schedule 18.08.2020

arrow_upward
0
arrow_downward

Вам просто нужно изменить позицию таблицы, сформированной dt_tot_week, на float_right вместо float_left. Я уверен, что это, должно быть, опечатка в вашем коде.

knitr::kable(dt_tot, "html", caption ="left Tbl") %>%
kableExtra::kable_styling(bootstrap_options = c("hover"),
                            full_width = FALSE, position = "float_left")

knitr::kable(dt_tot_week, "html", caption ="right Tbl") %>%
kableExtra::kable_styling(bootstrap_options = c("hover"),
                          full_width = FALSE, position = "float_right")
person user2922935    schedule 04.09.2019