knitr - Rmarkdown と pander を使用してテーブルの列見出しを揃えてイタリック体にする

Question

ezANOVA パッケージのリストの一部から取得したテーブルを使用して、pdf に編む rmarkdown ドキュメントを作成しています。テーブルは pander パッケージを使用して作成されます。以下のおもちゃのデータセットを含むおもちゃの Rmarkdown ファイル。

---
title: "Table Doc"
output: pdf_document
---
```{r global_options, include=FALSE}
#set global knit options  parameters. 
knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='Figs/', 
                      echo=FALSE, warning=FALSE, message=FALSE, dev = 'pdf')
```


```{r, echo=FALSE}
# toy data
id <- rep(c(1,2,3,4), 5)
group1 <- factor(rep(c("A", "B"), 10))
group2 <- factor(rep(c("A", "B"), each = 10))
dv <- runif(20, min = 0, max = 10)
df <- data.frame(id, group1, group2, dv)
```

``` {r anova, echo = FALSE}
library(ez)
library(plyr)
library(pander)

# create anova object
anOb <- ezANOVA(df,
                dv = dv,
                wid = id,
                between = c(group1, group2),
                type = 3,
                detailed = TRUE)

# extract the output table from the anova object, reduce it down to only desired columns
anOb <- data.frame(anOb[[1]][, c("Effect", "F", "p", "p<.05")])

# format entries in columns
anOb[,2] <- format( round (anOb[,2], digits = 1), nsmall = 1)
anOb[,3] <- format( round (anOb[,3], digits = 4), nsmall = 1)

pander(anOb, justify = c("left", "center", "center", "right"))
```

今、私はいくつかの問題を抱えています

a) 最後の 3 列については、テーブルの列見出しを中央に揃えたいのですが、それらの見出しの下にある実際の列エントリは右に揃えます。

b) 列見出し 'F' と 'p' をイタリック体で、'p<.05' 列の 'p' もイタリック体で、残りは通常のフォントにしたいと思います。したがって、彼らはF、p、およびp <.05を読み取ります

plyr::rename を使用して列見出しの名前を変更しようとしました

anOb <- rename(anOb, c("F" = "italic(F)", "p" = "italic(p)", "p<.05" = ""))

しかし、それはうまくいきませんでした