KableExtra с упакованными строками не работает с подстрочными или надстрочными значениями в собственном наборе данных - PullRequest
Новая
       70

KableExtra с упакованными строками не работает с подстрочными или надстрочными значениями в собственном наборе данных

0 голосов
/ 23 января 2020

То, что я в основном хочу, - это упакованные строки в моем наборе данных, где некоторые значения имеют нижний или верхний индекс.

Он работал в модифицированной версии iris, но не в моем собственном наборе данных. Я потратил лучшую половину сегодняшнего дня, разбираясь с каждой возможной комбинацией аргументов в kable и kableExtra, и смотрел на вопросы с несколькими стеками, и все еще не могу понять проблему. Пожалуйста, помогите.

R Пример файла уценки: 

---
title: "Untitled"
output:
  pdf_document
---

```{r }
library(knitr)
library(kableExtra)
library(tidyverse)

    iris <- iris[1:5,]
    iris$Species <- paste0(iris$Species, c("\\textsuperscript{foo}", "\\textsuperscript{bar}", "\\textsubscript{baz}",
                                           "\\textsubscript{ffff}", "\\textsubscript{aaaa}"))
    iris <- iris %>% select(Species, everything())

    ##

    own_df <- structure(list(Variable = c("Lung cancer risk (PLCO\\textsubscript{M2012})", 
    "FEV\\textsubscript{1}", "% Predicted FEV\\textsubscript{1}", 
    "FEV\\textsubscript{1}:FVC ratio", "Airflow obstruction, yes (%)", 
    "COPD/emphysema, yes (%)", "FH lung cancer, yes (%)"), `Attended Patients` = c("4.7", 
    "2.09", "82", "74.6", "8260 (57.3)", "4504 (31.2)", "3696 (25.6)"
    ), `Programme Average (Weighted Mean/%)` = c(NA, "2.1", "81.4", 
    "69.5", "(57.3)", "(31.2)", "(25.6)")), row.names = c(NA, -7L
    ), class = c("tbl_df", "tbl", "data.frame"))


    ##

    kable(<iris or own_df>, format = "latex", booktabs = T, escape = FALSE) %>%
      kable_styling(latex_options = c("striped")) %>% 
      pack_rows(group_label = "foof", 1, 2)

    ```

С own_df в kable() Я получаю: 

! Misplaced \noalign.
\midrule ->\noalign 
                    {\ifnum 0=`}\fi \@aboverulesep =\aboverulesep \global \@...
l.181 \midrule

Что как новичок TeX не интерпретируется мне. Я также получил множество других ошибок, когда играл с другими комбинациями аргументов.

Я смотрел на:

kable / kableExtra Добавить верхний индекс к меткам группы в group_rows

Как подписать имена в таблице из kable ()?

Проблемы при рендеринге таблицы с использованием r Markdown, kable и kableExtra

...