我在使用rticles包默认模板编译中文pdf文档过程中发现,在手机上阅读所得到的pdf时字体太小,用两个手指撑页面大后,字体可以放大到足以看清,但文章在阅读时需要频繁地左右滑动,无法同时看到左右边界。使用\fontsize,只能增大非标题文字的字体,但无法控制标题文字和目录文字的字体大小。为了编译出适合手机阅读的中文pdf文档,有什么好的方法吗?
- 哈哈,没有你想的那么复杂,你把中文的引号换成英文的引号试试。
- 谢谢谢大给的链接。
含有反引号的代码行(见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
- 于 请教个画图的问题
par(mfrow=c(3,2), oma=c(3,3,4,0), mar=c(4,2,1,1), cex=0.6) for(i in 1:6) plot(rnorm(i)) mtext("Title", 3, 1, outer=TRUE, cex=2)
- 我用你的代码执行后,ggplot2和plot画图都是正常的。