In Gedevan-Aleksizde/rmdja: R Markdown Formats for Japanese

options(tinytex.latexmk.emulation = T)
# 確実にアンダースコアを回避するにはコピーしかない
file.copy(system.file("resources/bibliography/rmdja.bib", package="rmdja"), "./") 
file.copy(system.file("resources/styles/css", package="rmdja"), "./", recursive = T)
file.copy(system.file("resources/styles/img", package="rmdja"), "./", recursive = T)
img_dir <- "img/"
dir.create(img_dir, recursive = T)
file.copy(file.path(system.file("resources/img", package = "rmdja"),
                    c("Johannes_Gutenberg.jpg")), img_dir)
knitr::opts_chunk$set(
  echo = F,
  comment = "",
  dev.args = list(family = if(knitr::is_html_output()) list() else list(family = "Noto Sans Serif CJK JP")),
  tidy = "styler"
  )
require(tidyverse)
require(knitr)

(PART) イントロダクション {-}

序文 {-}

(ここに壮大な幕開け)

画像

knitr::include_graphics("img/Johannes_Gutenberg.jpg")

(PART) 第2部などない {-}

表の表示

data(iris)
head(iris, n = 10) %>% kable(booktabs = T, caption = "表のスタイルを自由に変更") %>% 
  kableExtra::row_spec(seq(1, 10, by = 2), color = "red")

R のプロットの埋め込み

data(iris)
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
  geom_point()

数式

$$ f(x|\mu,\,\sigma^{2})=\frac{1}{\sqrt{2\pi}\sigma}\exp\left(-\frac{(x-\mu)^{2}}{2\sigma^{2}}\right) $$

引用

[@Okumura2017LaTeX] [@doughertyforthcomingHandsOn; @R-ggdag; @R-ggthemes; @R-rmarkdown; @R-tidyverse;]

Gedevan-Aleksizde/rmdja documentation built on Sept. 28, 2021, 2:49 a.m.