カスタム ggplot2 テーマ

Tidyverseによるデータコミュニケーション

Timo Grossenbacher

Data Journalist

カスタム外観のメリット

ggplot(plot_data) +
  geom_histogram(aes(
    x = working_hours)) +
  labs(x = "Working hours per week",
       y = "Number of countries") +

  theme(
    text = element_text(
      family = "Bookman",
      color = "gray25")
  )

ggplot(plot_data) +
  geom_histogram(aes(
    x = working_hours)) +
  labs(x = "Working hours per week",
       y = "Number of countries") +

  theme_classic()

ggplot(plot_data) +
  geom_histogram(aes(
    x = working_hours)) +
  labs(x = "Working hours per week",
       y = "Number of countries") +

  theme_classic() +

  theme(
    text = element_text(
      family = "Bookman",
      color = "gray25")
  )

?theme

axis.title
軸のラベル（element_text；text から継承）

axis.title.x
x 軸ラベル（element_text；axis.title から継承）

axis.title.x.top
上部 x 軸ラベル（element_text；axis.title.x から継承）

axis.title.x.bottom
下部 x 軸ラベル（element_text；axis.title.x から継承）

element_text()
element_rect()
element_line()
element_blank()

ggplot(plot_data) +
  geom_histogram(aes(
    x = working_hours)) +
  labs(x = "Working hours per week",
       y = "Number of countries") +

  theme(
    text = element_blank()
  )

Tidyverseによるデータコミュニケーション