2

この質問が非常に愚かであるならば申し訳ありません。回帰を実行し、要約テーブルと診断プロットをPDFファイルに送信しようとしています。このパッケージは非常に役立ちますが、2つの基本的な質問があります。

  1. LaTeXを使用してチャンク内のページをフォーマットできますか？
  2. プロットのサイズを減らす方法はありますか（PDFファイルのサイズを減らす必要があります）？dpiを設定して、プロットではなくpngを使用しようとしましたが、機能しませんでした。

提案をありがとう。

これが私のコードです：

\documentclass[10pt]{article}
\usepackage{graphicx}
\usepackage{amssymb}
\usepackage{amsmath}
\usepackage{setspace}
\usepackage[margin = 1in]{geometry}

\begin{document}
\SweaveOpts{concordance=TRUE}
\section{Risk $\sim$ log(Parameters)}
<<fig.width=5,  fig.height=4.5, message=FALSE, tidy=TRUE, fig.align="center", echo=FALSE, warning=FALSE, eval=TRUE>>=
library(R.matlab)
for (k in 1:6){
data_t=readMat("I:\\Dropbox\\Rregression\\matlab_size.mat")

data=data.frame(NA, nrow = length(data_t[[1]]), ncol = 7)
data=data.frame(rho=data_t[[1]],Risk=data_t[[2]],Mass.f=data_t[[3]],Mass.utf=data_t[[4]],Mass.w=data_t[[5]],
                ach=data_t[[6]],p=data_t[[7]])

data2=log(subset(data,select=-c(Risk)))
N_reg=dim(data2)[2]
num_ele=k
Comb=combn(N_reg,num_ele)
N_comb=ncol(Comb)
Results=data.frame(NA,ncol=4,nrow=N_comb)
TSS=sum((data$Risk-mean(data$Risk))^2)

for (i in 1:N_comb){  
  data_temp=data2[,Comb[,i]]  
  lm_temp=lm(data$Risk~as.matrix(data_temp))
  name=paste("lm_", i, sep="")
  assign(name, lm_temp)
  Results[i,1]=summary(lm_temp)$r.squared
  Results[i,2]=summary(lm_temp)$adj.r.squared
  Results[i,3]=sum(resid(lm_temp)^2)
  Results[i,4]=sum((fitted(lm_temp)-mean(fitted(lm_temp)))^2)
} 
colnames(Results)=c("R2", "Adj_R2", "RSS", "ESS")
best_col=which(Results[,2]==max(Results[,2]))

cat ('Number of independent variables=', k)
print (summary(eval(parse(text=(paste("lm_", best_col, sep=""))))))
print (Results[best_col,])
par(mfrow=c(2,2),mar=c(3,3,3,3))
plot(eval(parse(text=(paste("lm_", best_col, sep=""))))) #question 2: is there a way to reduce dpi of plot? 
\newpage #Here is question 1, I want to add a page break after printing a pair of summary table and plots
}

@
\end{document}

アップデート

チャンク内でループが発生したときにフォーマットの問題が見つかりました。Yihuiの提案に基づいて、私は走りました

library(devtools)
install_github('evaluate', 'hadley')
install_github('knitr', 'yihui')

Rコンソールで。ただし、ビネットに関連する次のエラーが発生しました。

* installing the package to re-build vignettes
* creating vignettes ... ERROR
C:/PROGRA~1/R/R-215~1.1/bin/Rscript -e "library(knitr); knit2pdf('knitr-intro.Rnw')"
/usr/bin/sh: -c: line 0: syntax error near unexpected token `('
/usr/bin/sh: -c: line 0: `C:/PROGRA~1/R/R-215~1.1/bin/Rscript -e \library(knitr); knit2pdf(knitr-intro.Rnw)\'
make: *** [knitr-intro.pdf] Error 1
Error in tools::buildVignettes(dir = ".") : running 'make' failed
Execution halted
Error: Command failed (1)
In addition: Warning message:
running command '"C:/PROGRA~1/R/R-215~1.1/bin/x64/R" --vanilla CMD build "C:\Users\th\AppData\Local\Temp\RtmpSMRGAq\yihui-knitr-568a092" --no-manual --no-resave-data' had status 1

それで、これを解決する方法についての提案はありますか？MikTex 2.9をインストールし、Gitから直接Knitrパッケージをダウンロードして、Windowsシェルでビルドしようとしました。次のエラーが発生しました。

C:\Users\th\Documents\R\win-library\2.15>R CMD build knitr --no-vignettes
* checking for file 'knitr/DESCRIPTION' ... OK
* preparing 'knitr':
* checking DESCRIPTION meta-information ... OK
Warning in file(con, "r") :
  cannot open file 'man': No such file or directory
Error in file(con, "r") : cannot open the connection
 ERROR
computing Rd index failed
4

1 に答える 1

4

あなたはあなたの例をたくさん単純化することができたでしょう。2つの質問への回答（詳細なドキュメントについては、http：//yihui.name/knitr/optionsを参照してください）。

  1. はい、使用しresults='asis'ます;
  2. デバイスを使用する場合は、チャンクをpng小さく設定できます。dpiRのpdf()デバイスはすでにプロットを圧縮しておりpng、デフォルトのPDF圧縮では不十分な場合は、おそらくこれが唯一の選択肢です。デフォルトdpiは72で、小さい値はあまり役に立たないと思います

最小限の例を次に示します。

\documentclass{article}

\begin{document}

hi

<<output-tex, results='asis'>>=
x = rnorm(1000)
cat('\\newpage')
@

here is a plot

<<smaller-png, dev='png', dpi=30>>=
plot(x)
@

\end{document}
于 2012-11-28T08:49:04.377 に答える