xtable выровнять по правому краю и установить ширину Rmarkdown

Question

У меня есть фрейм данных, который я хочу превратить в таблицу с выравниванием по правому краю в Rmarkdown

---
title: "Test"
output: 
  pdf_document
---

```{r testing, results='asis'}
library(xtable)
df <- structure(list(ID = c(101L, 102L, 103L, 104L, 105L, 106L), 
                       Gr1 = c(10.76,983.4, 34.000, 20, 23.8457, 13.32),
                       Gr2 = c(NA,NA, NA, 20L, NA, NA)
                       ), 
                  .Names = c("ID", "Grade1", "Grade2"), 
                  class = c("tbl_df", "data.frame"), 
                  row.names = c(NA, -6L))
xtable(df,
       align = c('l', 'p{1.5in}', rep('r{0.5in}',2)), 
       digits=c(0,0,1,0))
```

Это дает мне ошибку на rep('r{0.5in}',2)

! LaTeX Error: Illegal character in array arg.

Я также попробовал: align = c('l|', 'p{1.5in}|', rep('R{0.5in}|',2))

Следующее работает отлично: align = c('l', 'p{1.5in}', rep('p{0.5in}',2))

Но данные выровнены

Answer 1

Решено, мне нужно создать два включаемых файла, чтобы ввести необходимый латекс. Сначала обновите YAML в файле уценки:

---
title: "Test something"
output: 
  pdf_document:
    includes:
      in_header: preamble-latex.tex
      before_body: prebody-latex.tex
---
<SNIP, SEE ABOVE>

Затем создайте preamble-latex.tex загрузить пакет массива

\usepackage{array}

И создать prebody-latex.tex сохранить вашу новую команду столбца

\newcolumntype{R}[1]{>{\raggedleft\let\newline\\\arraybackslash\hspace{0pt}}p{#1}}

Answer 2

Вот приблизительное значение вашей таблицы. Я не знаю, что я правильно понял ширину. Очевидно, что-то подозрительное происходит с pixiedustпотому что когда я меняюсь width_units от "cm" в "in"Я получаю слишком большой стол.

---
title: "Test"
output: 
  pdf_document
header-includes: 
- \usepackage{amssymb} 
- \usepackage{arydshln} 
- \usepackage{caption} 
- \usepackage{graphicx} 
- \usepackage{hhline} 
- \usepackage{longtable} 
- \usepackage{multirow} 
- \usepackage[dvipsnames,table]{xcolor} 
---

```{r testing, results='asis'}
library(pixiedust)
df <- structure(list(ID = c(101L, 102L, 103L, 104L, 105L, 106L), 
                       Gr1 = c(10.76,983.4, 34.000, 20, 23.8457, 13.32),
                       Gr2 = c(NA,NA, NA, 20L, NA, NA)
                       ), 
                  .Names = c("ID", "Grade1", "Grade2"), 
                  class = c("tbl_df", "data.frame"), 
                  row.names = c(NA, -6L))
dust(df, keep_rownames = TRUE,
     float = FALSE) %>%
  sprinkle_colnames(.rownames = "") %>%
  medley_bw() %>%
  sprinkle_table(cols = ".rownames",
                 border = "right") %>%
  sprinkle_table(cols = c("Grade1", "Grade2"),
                 halign = "right") %>%
  sprinkle(cols = c("ID", "Grade1", "Grade2"),
           width = c(1.5, 0.05, 0.05),
           width_units = "cm",
           na_string = "",
           recycle = "cols") %>%
  sprinkle(cols = "Grade1",
           fn = quote(sprintf("%.1f", value)))

```