Question

我是乳胶新手，想生成PDF表而不是文本，所以我的例子是：

在我的METHOD.tex文件中我有这个文字：

在第一组中有AAA：项：BBB：items2和：CCC：items3。我们评估了：EEE：实施。总数为：VVV：回复前的调查对象：X111 :,拒绝：X222

所以AAA, BBB, CCC ....是我存储数字的对象。

a1<-200
b1<-450
c1<-500
d1<-1500

所以现在我使用了这段代码：

df<-data.frame(AAA,BBB,CCC,EEE)

比我写的：

df <- scan("METHOD.tex", character(0), sep="\n", quiet=TRUE, encoding="UTF-8")

并使用以下代码（因为我生成了更多不同的报告并且数字正在发生变化）：

df <- gsub(pattern=":AAA:", replacement=a1, x=df)
df <- gsub(pattern=":BBB:", replacement=b1, x=df)
...

Finnaly我用过这个：

df<- capture.output(Hmisc::latex(df, caption="Table", rowlabel="", file="", where="H"))

但是当我想生成表而不是文本时，没有任何反应。仍有AAA，BBB，CCC。所以我在代码的最后部分遗漏了一些东西。

Answer 1

R Studio中的R降价让这种事情变得更好。可以使用三个反引号{r}code声明R代码块，然后使用单个反引号和r声明内联代码。

以下内容与您想要的类似。

---
title: "Untitled"
author: "user"
date: "Tuesday, May 05, 2015"
output: 
  pdf_document:
    keep_tex: true
---

```{r}
require(xtable)
a1<-200
b1<-450
c1<-500
d1<-1500
```

In the first group there were: `r a1` items: `r b1` items2 and: `r c1` items3. We assessed: EEE: implementations. Of the total: VVV: objects to the survey before replying: X111 :, rejected: X222

```{r, results='asis', echo = FALSE}
data(mtcars)
out <- xtable(head(mtcars), caption = "Head of mtcars data set", label = "mt_head")
print(out, comment = FALSE)
```

这会将以下输出生成到tex文件

% Excised preamble
\begin{document}
% Excised ECHO 
In the first group there were: 200 items: 450 items2 and: 500 items3. We
assessed: EEE: implementations. Of the total: VVV: objects to the survey
before replying: X111 :, rejected: X222

\begin{table}[ht]
\centering
\begin{tabular}{rrrrrrrrrrrr}
  \hline
 & mpg & cyl & disp & hp & drat & wt & qsec & vs & am & gear & carb \\ 
  \hline
Mazda RX4 & 21.00 & 6.00 & 160.00 & 110.00 & 3.90 & 2.62 & 16.46 & 0.00 & 1.00 & 4.00 & 4.00 \\ 
  Mazda RX4 Wag & 21.00 & 6.00 & 160.00 & 110.00 & 3.90 & 2.88 & 17.02 & 0.00 & 1.00 & 4.00 & 4.00 \\ 
  Datsun 710 & 22.80 & 4.00 & 108.00 & 93.00 & 3.85 & 2.32 & 18.61 & 1.00 & 1.00 & 4.00 & 1.00 \\ 
  Hornet 4 Drive & 21.40 & 6.00 & 258.00 & 110.00 & 3.08 & 3.21 & 19.44 & 1.00 & 0.00 & 3.00 & 1.00 \\ 
  Hornet Sportabout & 18.70 & 8.00 & 360.00 & 175.00 & 3.15 & 3.44 & 17.02 & 0.00 & 0.00 & 3.00 & 2.00 \\ 
  Valiant & 18.10 & 6.00 & 225.00 & 105.00 & 2.76 & 3.46 & 20.22 & 1.00 & 0.00 & 3.00 & 1.00 \\ 
   \hline
\end{tabular}
\caption{Head of mtcars data set} 
\label{mt_head}
\end{table}

\end{document}

并自动编译tex文件中的pdf。

在Rstudio中生成LaTeX表而不是文本

1 个答案: