Xtableグレー行が縦線を上書きする

Question

--- 
title: "Title" 
author: '' 
date: '' 
output: 
pdf_document: 
    template: default.tex 
geometry: top=0.5cm, bottom=0.5cm, left=0.5cm, right=0.5cm 
header-includes: null 
fontsize: 4pt 
classoption: portrait 
sansfont: Calibri Light 
--- 
#Name1: `r "Name1"` 
#Name2: `r "Name2"` 

```{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'} 
df <- mtcars 
n = nrow(df) 
hlines=c(-1,0,(n-1),n) 
my_align = "c|c|c|ccccc|ccc|c|" 
rws <- seq(1, (n-1), by = 2) 
col <- rep("\\rowcolor[gray]{.90} ", length(rws)) 
xtable::print.xtable(xtable(df 
, align = my_align) 
, add.to.row = list(pos = as.list(rws), command = col) 
, booktabs = F 
, hline.after = hlines, type = "latex") 
``` 

Rmarkdownを使用して、多くの書式設定を行う表を印刷しています。 add.to.rwo部分を追加して灰色と白の交互の行を取得すると、灰色の行で垂直線が削除されます。

これを修正するにはどうすればよいですか？

Answer 1

:)

おかげで、これらの2つのテーブルを比較してみ再現性の例を作成することは非常に困難ですが、うまくいけば、同じ問題が（その背後に正しいラテックスパッケージと）任意のDFに適用されます。最初のテーブルはコード化したテーブルで、2番目のテーブルはpixiedustで、hhlineオプションはTRUEに設定されています。

--- 
title: "Title" 
author: '' 
date: '' 
output: 
pdf_document: 
geometry: top=0.5cm, bottom=0.5cm, left=0.5cm, right=0.5cm 
header-includes: 
- \usepackage{amssymb} 
- \usepackage{arydshln} 
- \usepackage{caption} 
- \usepackage{graphicx} 
- \usepackage{hhline} 
- \usepackage{longtable} 
- \usepackage{multirow} 
- \usepackage[dvipsnames,table]{xcolor} 
fontsize: 4pt 
classoption: portrait 
sansfont: Calibri Light 
--- 
#Name1: `r "Name1"` 
#Name2: `r "Name2"` 

```{r, echo=FALSE, message=FALSE, warning=FALSE, results='asis'} 
library(xtable) 
df <- mtcars 
n = nrow(df) 
hlines=c(-1,0,(n-1),n) 
my_align = "c|c|c|ccccc|ccc|c|" 
rws <- seq(1, (n-1), by = 2) 
col <- rep("\\rowcolor[gray]{.90} ", length(rws)) 
xtable::print.xtable(xtable(df 
, align = my_align) 
, add.to.row = list(pos = as.list(rws), command = col) 
, booktabs = F 
, hline.after = hlines, type = "latex") 
``` 

```{r} 
library(pixiedust) 
dust(df, 
    hhline = TRUE, 
    keep_rownames = TRUE) %>% 
    medley_bw() %>% 
    sprinkle_colnames(.rownames = "") %>% 
    sprinkle(cols = c(".rownames", "mpg", "cyl", "qsec", "gear", "carb"), 
      border = "right") %>% 
    sprinkle(rows = nrow(mtcars), 
      border = "top") %>% 
    sprinkle(bg_pattern_by = "rows") 
```