小编and*_*rey的帖子

我正在使用rmarkdown制作报告.编织PDF时

---
title: "Untitled"
output: pdf_document
---

我想指定用于创建PDF的字体.官方文档(请参阅"LaTeX选项"部分)说我可以这样做. 但是,我从未使用过LaTeX,也无法理解如何在rmarkdown包使用的.Rmd文档顶部的YAML选项中进行此类选择.

问题:如何更改rmarkdown生成的PDF中的字体？

sessionInfo()R版本3.1.0(2014-04-10)平台:x86_64-w64-mingw32/x64(64位)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggplot2_1.0.0 RODBC_1.3-10  knitr_1.6     dplyr_0.2

我从来没有使用过LaTeX,也不想在这个妈妈身上进入它

升级到v0.98.932之后,当编译.rmd文件时,它会生成.md,然后是.html,但随后会删除.md.我需要保持它上传到GitHub.从.Rmd编织hmtl时,选项可以保留.md文件？

对于以下数据

ds <- read.table(header = TRUE, text ="
id year attend
1 2007      1
1 2008      1
1 2009      1
1 2010      1
1 2011      1
8 2007      3
8 2008     NA
8 2009      3
8 2010     NA
8 2011      3
9 2007      2
9 2008      3
9 2009      3
9 2010      5
9 2011      5
10 2007     4
10 2008     4
10 2009     2
10 2010    NA
10 2011    NA
")
ds<- ds %>% dplyr::mutate(time=year-2000)
print(ds)

如何编写dplyr :: filter()命令以仅保留没有单个NA的id？所以只有ids …

我希望能够为dplyr动词定义参数

condition <- "dist > 50"

然后在dplyr函数中使用这些字符串:

require(ggplot2)
ds <- cars
ds1 <- ds %>%
   filter (eval(condition))
ds1

但它会引发错误

Error: filter condition does not evaluate to a logical vector. 

代码应评估为:

  ds1<- ds %>%
     filter(dist > 50)
  ds1

导致 :

DS1

   speed dist
1     14   60
2     14   80
3     15   54
4     18   56
5     18   76
6     18   84
7     19   68
8     20   52
9     20   56
10    20   64
11    22   66
12 …

在R.工作.数据跟踪大脑活动随时间的变化.列"标记"包含特定治疗开始和结束时的信息.例如,第一个条件(标记== 1)从第3行开始,到第6行结束.第二个实验条件(标记== 2)从第9行开始,到第12行结束.在行之间重复另一批处理1 15和18.

ob.id <- c(1:20)
mark <- c(0,0,1,0,0,1,0,0,2,0,0,2,0,0,1,0,0,1,0,0)
condition<-c(0,0,1,1,1,1,0,0,2,2,2,2,0,0,1, 1,1,1,0,0)
start <- data.frame(ob.id,mark)
result<-data.frame(ob.id,mark,condition)
print (start)
> print (start)
   ob.id mark
1      1    0
2      2    0
3      3    1
4      4    0
5      5    0
6      6    1
7      7    0
8      8    0
9      9    2
10    10    0
11    11    0
12    12    2
13    13    0
14    14    0
15    15    1
16    16    0
17    17    0
18    18    1
19    19    0 …

我正在使用包装的markdonw v2 rmarkdown.在整个.Rmd文件中,我创建了指向网站或图像的链接

[Link1][pathLink1]
![Image1][pathImage1]

然后,在文件的最后我给出了参考文献

[pathLink1]:http://website.com/linkes/Link1.md 
![pathImage1]:./images_rmd/

还有其他报道谈论相同的引用并在不同的上下文中使用相同的图像.我想创建一个包含所有链接和路径定义的单独文件,这样我就可以在每个.Rmd文件的末尾简单地获取它,就像我在R环境中调用一样

source(/Rcode1.R)

问题:如何在.Rmd中"获取"另一个文件,以便源代码将所需的文本字符串打印到.Rmd文件中？

这将为HTML和PDF中的引用和科学论文组成提供一些帮助.

在由rmarkdown和knitr包创建的报告中，我想创建一个 1 x 2 的表格，其中的每个单元格都将托管一个 LaTeX 方程。在等式中，单个元素必须选择自定义颜色，生成如下内容：

使用 rmarkdown 应该识别的 html 元素：

---
output:
  pdf_document: default
  html_document:
    mathjax: "http://example.com/mathjax/MathJax.js?config=TeX-AMS-MML_HTMLorMML"
---

### Two formulas side by side
<div style="width:900px">

<div style="width:450px">
<math xmlns="http://www.w3.org/1998/Math/MathML" display="block">
 <semantics>
  <mrow>
   <msub style="color:red">
    <mi>y</mi>
    <mrow>
     <mi>t</mi><mi>i</mi></mrow>
   </msub>
   <mo>=</mo><msub>
    <mi>&#x03B2;</mi>
    <mn>0</mn>
   </msub>
   <mo>+</mo><msub style="color:red">
    <mi>&#x03B5;</mi>
    <mrow>
     <mi>t</mi><mi>i</mi></mrow>
   </msub>
   </mrow>
  </annotation>
 </semantics>
</math>

</div>

<div style="width:450px">
$$ 
{y_{ti}} = {\beta _0} + {\beta _1}Tim{e_t} + {\varepsilon _{ti}}
$$
</div>

</div>

编织 html 时，左边的方程出错：

编织 …

对于以下数据:

require(dplyr)
require(ggplot2)

ds <- read.table(header = TRUE, text ="
obs  id year attend
                 1  47 2000      1
                 2  47 2001      3
                 3  47 2002      5
                 4  47 2003      8
                 5  47 2004      6
                 6  47 2005      4
                 7  47 2006      2
                 8  47 2007      1
                 9  47 2008      2
                 10 47 2009      3
                 11 47 2010      4
                 12 47 2011      5

                 ")
print(ds)

我想计算线性模型的预测值

linear<-    predict(lm(attend ~ year, ds))
quadratic<- predict(lm(attend ~ year + I(year^2),ds))
cubic<-     predict(lm(attend ~ year …