Rでお遊び：プロットを英国大使館スタイル「govstyle」パッケージ

#念のため先にインストール
install.packages("devtools")
devtools::install_github("MangoTheCat/visualTest")
install.packages("plyr")
#パッケージのインストール
#install.packages("devtools")
devtools::install_github("ivyleavedtoadflax/govstyle")

#パッケージの読み込み
library("govstyle")

###データ例の作成#####
n <- 100
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                       Data1 = sample(rnorm(10), n, replace = TRUE))
########

#ggplot2に英国大使館スタイルを適応:theme_govコマンド
#必要があればggplot2のインストール
#install.packages(c("ggplot2", "labeling"))
#ggplot2を読み込み
library("ggplot2")
TestBox <- ggplot(TestData, aes(x = Group, y = Data1, col = Group))
TestBox + geom_point() + theme_gov()

#収録カラーパレットのデータ表示:gov_colsデータ
gov_cols
purple        pink  mellow_red      yellow   turquoise       mauve   baby_pink
"#2E358B"   "#D53880"   "#DF3034"   "#FFBF47"   "#28A197"   "#6F72AF"   "#F499BE"
orange       green  light_blue     fuschia         red       brown grass_green
"#F47738"   "#006435"   "#2B8CC4"   "#912B88"   "#B10E1E"   "#B58840"   "#85994B"

#収録カラーパレットの確認:check_palコマンド
check_pal()