差分
この文書の現在のバージョンと選択したバージョンの差分を表示します。
両方とも前のリビジョン 前のリビジョン 次のリビジョン | 前のリビジョン | ||
memo:r:sweave [2013/07/21 09:05] hasegawa |
memo:r:sweave [2016/07/17 04:22] (現在) |
||
---|---|---|---|
ライン 18: | ライン 18: | ||
(公式サイト)[http://zrbabbler.sp.land.to/zxjatype.html] | (公式サイト)[http://zrbabbler.sp.land.to/zxjatype.html] | ||
- | Sweaveはチャンク内に記したRコードをTeXソース中でverbatim環境(のラッパー)に出力するが,XeLaTeXではverbatim環境で日本語を使えないようだ. | + | Sweaveはチャンク内に記したRコードをTeXソース中でverbatim環境(のラッパーであるSinput環境・Soutput環境)に出力するが,XeLaTeXではverbatim環境で日本語を使えないようだ. |
そこで,ZRさんが開発・公開しているZXjatypeパッケージを使う. | そこで,ZRさんが開発・公開しているZXjatypeパッケージを使う. | ||
ライン 28: | ライン 28: | ||
http://web.mit.edu/ghudson/dev/nokrb/third/tetex/texmf/tex/latex/ae/ae.sty | http://web.mit.edu/ghudson/dev/nokrb/third/tetex/texmf/tex/latex/ae/ae.sty | ||
+ | |||
+ | ダウンロードしたら | ||
+ | /usr/local/texlive/texmf-local/tex/latex/local | ||
+ | に配置し, | ||
+ | sudo mktexlsr | ||
+ | を実行 | ||
### Rstudio | ### Rstudio | ||
ライン 42: | ライン 48: | ||
``` | ``` | ||
- | \documentclass{article} | + | \documentclass[a4paper]{bxjsarticle} |
\usepackage{zxjatype} | \usepackage{zxjatype} | ||
\setCJKmainfont{HiraMinPro-W3} | \setCJKmainfont{HiraMinPro-W3} | ||
+ | \setjamonofont{Ricty} % 効いていないかも | ||
+ | \setmonofont{Ricty} % 効いていないかも | ||
\usepackage{mediabb} | \usepackage{mediabb} | ||
\XeTeXlinebreaklocale "ja" | \XeTeXlinebreaklocale "ja" | ||
ライン 55: | ライン 63: | ||
| | ||
\maketitle | \maketitle | ||
- | Sweaveで日本語 | + | |
+ | \section{Sweaveで日本語} | ||
+ | |||
+ | 本文はもちろん, | ||
+ | |||
+ | <<>>= | ||
+ | cat("コード中の日本語出力も大丈夫") | ||
+ | @ | ||
+ | |||
+ | \section{グラフにも日本語} | ||
+ | | ||
<<>>= | <<>>= | ||
+ | par(family="HiraKakuPro-W3") # グラフに日本語を使う場合 | ||
data <- iris | data <- iris | ||
+ | summary(data) | ||
@ | @ | ||
- | \begin{center} | + | |
+ | echoオプションで実行したコードを出力するかどうかを制御できる. | ||
+ | |||
+ | コードを出力しないでグラフだけを描画する場合(\tt{plot(data[,1:2])}だけを実行) | ||
+ | | ||
<<fig = TRUE, echo = FALSE>>= | <<fig = TRUE, echo = FALSE>>= | ||
plot(data[,1:2]) | plot(data[,1:2]) | ||
+ | title("チャンクオプションはfig = TRUE, echo = FALSE") | ||
+ | @ | ||
+ | | ||
+ | コードを出力する場合 | ||
+ | \begin{center} | ||
+ | <<fig = TRUE, echo = TRUE>>= | ||
+ | plot(data[,1:2]) | ||
+ | title("グラフにも日本語") | ||
+ | text(x=7,y=2,"text()で日本語出力") | ||
@ | @ | ||
\end{center} | \end{center} | ||
+ | | ||
+ | | ||
\end{document} | \end{document} | ||
``` | ``` | ||
+ | |||
+ | {{:memo:r:sweavetest.pdf|作成したPDF}} | ||