Question

我想更改texreg生成的表格中的字体。我正在编织RStudio的Rmarkdown表，因此不能直接修改LaTeX。

这是一个例子。标题，系数名称和一些结果以roboto格式打印。其他结果则不然。我想将所有数字设为roboto或inconsolata。建议？

我也想把表格注释为roboto。

---
title: "Untitled"
header-includes:
  - \usepackage{fontspec}
  - \setmonofont[Mapping=tex-text]{inconsolata}
  - \usepackage[sfdefault]{roboto}
  - \renewcommand{\familydefault}{\sfdefault}
output:
  pdf_document:
    latex_engine: xelatex
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F)
library(nlme)
library(texreg)
```

```{r, results='asis', echo=F}
model.1 <- lme(distance ~ age, data = Orthodont, random = ~ 1)
model.2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
texreg(list(model.1, model.2))
```

Answer 1

我不熟悉在LaTeX中操作字体给你一个完整的答案，但希望这会让你更接近你的目标。

基本思想是操纵texreg的输入/输出以提供您想要的内容，因为texreg本身缺乏这些功能。

在您的情况下，我认为您只需操纵输入即可完成所需的操作，但操作输出的方法是使用capture.output，如：

tbl = capture.output(texreg(list(model.1, model.2)))

使用正则表达式/无论如何修复那里的输出。

我将使用texttt来举例说明这种方法：

rename_coef = function(reg) {
  names(reg$coefficients$fixed) = 
    paste0('\\texttt{', names(reg$coefficients$fixed), '}')
  reg
}

model.1 <- rename_coef(lme(distance ~ age, data = Orthodont, random = ~ 1))
model.2 <- rename_coef(lme(distance ~ age + Sex, data = Orthodont, random = ~ 1))

texreg(list(model.1, model.2))

将获得要自定义的系数名称列字体：

# \begin{table}
# \begin{center}
# \begin{tabular}{l c c }
# \hline
#  & Model 1 & Model 2 \\
# \hline
# \texttt{(Intercept)} & $16.76^{***}$ & $17.71^{***}$ \\
#                      & $(0.80)$      & $(0.83)$      \\
# \texttt{age}         & $0.66^{***}$  & $0.66^{***}$  \\
#                      & $(0.06)$      & $(0.06)$      \\
# \texttt{SexFemale}   &               & $-2.32^{**}$  \\
#                      &               & $(0.76)$      \\
# \hline
# AIC                  & 455.00        & 447.51        \\
# BIC                  & 465.66        & 460.78        \\
# Log Likelihood       & -223.50       & -218.76       \\
# Num. obs.            & 108           & 108           \\
# Num. groups          & 27            & 27            \\
# \hline
# \multicolumn{3}{l}{\scriptsize{$^{***}p<0.001$, $^{**}p<0.01$, $^*p<0.05$}}
# \end{tabular}
# \caption{Statistical models}
# \label{table:coefficients}
# \end{center}
# \end{table}

如果要操作表注释的字体，请使用custom.note参数：

texreg(list(model.1, model.2), custom.note ='\\texttt{Block font note}')

在texreg表中更改字体

1 个答案: