jcwang

哈哈，没有你想的那么复杂，你把中文的引号换成英文的引号试试。

谢谢谢大给的链接。

含有反引号的代码行（见5楼），重写如下
4个空格，1个反引号，1个r，1个空格，2个单引号，1个反引号，3个反引号，{r}

根据我的理解，在以上代码行中
前10个字符（即：4个空格，1个反引号，1个r，1个空格，2个单引号，1个反引号）的作用是添加一个空字符串，因而消除了后6个字符原本用作代码块头的效果。
后6个字符（即：3个反引号，{r}）的作用则是原样显示这后6个字符。

以上代码中漏掉了一个字符r，更正如下
4个空格，1个反引号，1个r，1个空格，2个单引号，4个反引号，{r}

代码一贴上去就变了，只好用文字来描述，主要是第一行麻烦，第一行需要按以下方式依次输入：

4个空格，1个反引号，1个空格，2个单引号，4个反引号，{r}

这样可以吗？
r ''`{r}
summary(fdeaths)
`
注意，每一行开头都有4个空格。

需要事先安装并载入showtext包，然后在想要绘制包含中文的图表的代码块选项中使用“fig.showtext=TRUE”选项。

3楼已经告诉你了

[未知用户]

你的代码需作如下修改：
在 for(i in 1:681) 的前边插入 c=vector(length=681)
ci=0 改成 c=0
ci=1 改成 c=1
PI <- matrix(ci,nrow=681,ncol=1) 改成 PI <- matrix(c,nrow=681,ncol=1);
即可。

由于贴出来的文本格式被自动左对齐了，以下内容中只好用下划线来表示空格符。请对照检查你的这两个文件，特别要注意两个“---”之间的所有行，估计是在行缩进上出了问题。

.Rmd文件内容：

---
title: "test1"
author: "TQD"
date: "2016年3月25日"
output:
__pdf_document:
____latex_engine: xelatex
____includes:
______in_header: header.tex
---

`{r,collapse=TRUE,warning=FALSE}
library(knitr)
d <- data.frame(a=1:3,b=c(5,4,1),c=c("ab","cd","efg"))
kable(d,"pandoc",align = c("c","c","c"),col.names = c("AAA","BBB","CCC"))
`


header.tex文件内容：

\usepackage{ctex}

如果需要按year和province分组，就这样

library(dplyr)
df=data.frame(year=rep(seq(2010,2013),each=6),
province=sample(11:16,24,TRUE),
growth=sample(13:22,24,TRUE))
df=df%>%group_by(year,province)%>%mutate(Rank=row_number(desc(growth)))%>%arrange(desc(Rank))


可以这样：

library(dplyr)
df=data.frame(year=rep(seq(2010,2013),each=6),
province=sample(11:16,24,TRUE),
growth=sample(13:22,24,TRUE))
df=df%>%group_by(province)%>%mutate(Rank=row_number(desc(growth)))%>%arrange(desc(Rank))


[未知用户]

我在R中写的M后面紧跟一个带方括号的i,
也不知道是为什么，粘贴到回帖框后，竟变成了：
for(i in ind) {a=a+1; M=a}
好奇怪？！以前听说过吃代码的事，现在真的碰上了，这可怎么办？
求助版主，SOS！

library(dplyr)
set.seed(1)
Df=data.frame(ID=sample(1:20000,40000,TRUE),
record=sample(c('yes','no'),40000,TRUE))
summarise(group_by(Df, ID,record), 'count of record' = n())

> attach(da)
> ind=tapply(sale,list(year,province))
> ind
[1] 1 4 7 10 2 8 11 6 9 12
> nr=length(unique(year))
> nc=length(unique(province))
> lst=list(unique(year),unique(province))
> M=matrix(NA,nrow=nr,ncol=nc,dimnames=lst)
> M
A B C D
2007 NA NA NA NA
2008 NA NA NA NA
2009 NA NA NA NA
> a=0
> for(i in ind) {a=a+1; M=a}
> M
A B C D
2007 1 2 3 4
2008 5 NA 6 7
2009 NA 8 9 10
> detach(da)

由此可见，题目的目的是创建一个由year、province与sale所构成的列联表（各年份各省份的销售额）。

首先创建一个空白矩阵M，然后将sale的值填入其中，填入的顺序是按照tapply函数所返回的结果ind所指定的顺序。

#试试
w[k]=dcov1/sqrt(dcov2)/sqrt(dcov3);
#改为
w[k]<-dcov1/sqrt(dcov2)/sqrt(dcov3);

Plot Digitizer
http://plotdigitizer.sourceforge.net

要想得到X的输出结果中500之后全是NA，可以这样：

x<-rep(NA,1000)
i<-1
n<-1
while(i<=500)
{
x[n]<-i
i<-i+1
n<-n+1
}
x

我用你的代码执行后，ggplot2和plot画图都是正常的。