R: ggplot2でNoto Sansフォントをつかってみるテスト

ggplot2でNoto Sansフォントをつかってみるテストです。環境はmacOS 10.13、R 3.4.1です。

まずは適当なデータを用意します。

library(ggplot2)

set.seed(123)
Time <- 1:20
Y <- vector("numeric", length(Time))
Y[1] <- 0
for (i in 2:(length(Time) - 1)) {
  Y[i] <- Y[i - 1] + rnorm(1, 0, 1)
}
df <- data.frame(Time = Time, Y = Y)

q1 <- ggplot(df) +
  geom_line(aes(x = Time, y = Y)) +
  labs(title = "ランダムウォーク", x = "時間", y = "値")

Noto Sans CJK JP レギュラーです。

q1 + theme_gray(base_family = "NotoSansCJKjp-Regular")

Noto Sans CJK JP ボールドです。

q1 + theme_gray(base_family = "NotoSansCJKjp-Bold")

Noto Sans CJK JP ブラックです。

q1 + theme_gray(base_family = "NotoSansCJKjp-Black")

タグ：R ggplot2