Как правильно отображать таблицы в документах Rmarkdown HTML - PullRequest
Новая
       14

Как правильно отображать таблицы в документах Rmarkdown HTML

0 голосов
/ 24 апреля 2020

Новичок R пользователь здесь. Когда я использую Knitr для создания документа HTML, таблицы отображаются так же, как и при запуске кода R из сценария R, вместо того, как он выглядит при запуске из блокнота R. Это выглядит как image1, а не image2 image1: HTML document image2: Run from the R Notebook Как я могу заставить его отображать таблицы "правильно"? Если это невозможно, есть ли способ заменить неразрывные пробелы (;) на "нормальные" пробелы ("")?

Вот мой код 

set.seed(42)
library(magrittr)
library(qwraps2)
library(markdown)
library(knitr)

# define the markup language we are working in.
# options(qwraps2_markup = "latex") is also supported.
options(qwraps2_markup = "markdown")

data(mtcars)

mtcars2 <-
  dplyr::mutate(mtcars,
                cyl_factor = factor(cyl,
                                    levels = c(6, 4, 8),
                                    labels = paste(c(6, 4, 8), "cylinders")),
                cyl_character = paste(cyl, "cylinders"))

our_summary1 <-
  list("Miles Per Gallon" =
       list("min" = ~ min(.data$mpg),
            "max" = ~ max(.data$mpg),
            "mean (sd)" = ~ qwraps2::mean_sd(.data$mpg)),
       "Displacement" =
       list("min" = ~ min(.data$disp),
            "median" = ~ median(.data$disp),
            "max" = ~ max(.data$disp),
            "mean (sd)" = ~ qwraps2::mean_sd(.data$disp)),
       "Weight (1000 lbs)" =
       list("min" = ~ min(.data$wt),
            "max" = ~ max(.data$wt),
            "mean (sd)" = ~ qwraps2::mean_sd(.data$wt)),
       "Forward Gears" =
       list("Three" = ~ qwraps2::n_perc0(.data$gear == 3),
            "Four"  = ~ qwraps2::n_perc0(.data$gear == 4),
            "Five"  = ~ qwraps2::n_perc0(.data$gear == 5))
       )

whole <- summary_table(mtcars2, our_summary1)
whole

R-версия и загруженные пакеты, на случай, если это поможет обнаружить ошибки, которые я сделал: 

               _                           
platform       x86_64-w64-mingw32          
arch           x86_64                      
os             mingw32                     
system         x86_64, mingw32             
status                                     
major          3                           
minor          6.3                         
year           2020                        
month          02                          
day            29                          
svn rev        77875                       
language       R                           
version.string R version 3.6.3 (2020-02-29)
nickname       Holding the Windsock        
 [1] "markdown"  "devtools"  "usethis"   "rmarkdown" "knitr"     "qwraps2"  
 [7] "magrittr"  "haven"     "forcats"   "stringr"   "dplyr"     "purrr"    
[13] "readr"     "tidyr"     "tibble"    "ggplot2"   "tidyverse" "rstatix"
...