カシカルは
Rのグラフ作成パッケージggplot2で作成したグラフや、
プログラミングに関する備忘録をまとめた個人サイトです。

  • 完全フリーですが、一部使用用途を制限しているコンテンツがあります。（その場合はページに記載しています。）
  • 掲載している内容（グラフ・スクリプト・文章）は十分に気を付けていますが、間違いを含んでいる可能性があります。何かに使う時は、各ページに書いてある出典元を確認してください。

Picup

日本の宗教信者数（全部）

日本の宗教信者数（神道）

日本の宗教信者数（仏教）

日本の宗教信者数（キリスト教）

日本の宗教信者数（諸教）

library(tidyverse)
library(treemapify)
library(extrafont)

data <- read.csv("./religion_data.csv")
bgcolor <- "gray20"

plot <- ggplot(data, aes(area=population, fill=group, label=name, subgroup=group, subgroup2=subgroup),color=black) + 
  geom_treemap(start = "bottomleft", colour=bgcolor, size=2)+
  geom_treemap_subgroup_border(colour = bgcolor, size = 10) +
  geom_treemap_subgroup_text(place = "center", grow = TRUE, alpha = 0.2, colour = "black", family = "Noto Sans JP", padding.x = grid::unit(5, "mm"), padding.y = grid::unit(5, "mm")) +
  geom_treemap_subgroup2_border(colour = bgcolor, size = 5) +
  geom_treemap_text(place="center", color="white", grow=TRUE, family = "Yu Mincho", padding.x = grid::unit(5, "mm"), padding.y = grid::unit(5, "mm")) +
  scale_fill_manual(values=c("#006e54", "#8d6449", "#ce5242", "#65318e")) +
  labs(title = '日本の宗教別信者数') +
  theme(
    text = element_text(family = "Noto Sans JP"),
    plot.title = element_text(size= 60, color="white",hjust=.5, vjust=.5),
    legend.position = "none",
    panel.background = element_rect(fill = bgcolor),
    plot.background = element_rect(fill = bgcolor)
  )

記事はこちら

トップに戻る