ggplot2 0.9.2 のテーマを作成

ggplot2は、バージョン0.9.2からテーマ関連が大幅に変更された。それに合わせて、以前公開したggplot2 のテーマを作成 - joker8phoenixの日記 も以下の内容に更新。

library(ggplot2)
library(reshape)
library(scales)
library(grid)

#############
### theme ###
#############
mytheme <- function (
  base_size=18,
  margin.top=1,
  margin.side=0.5,
  base_family="Helvetica",  
  number_family="Helvetica",
  ls=0,
  strip.ls=0,
  border="grey50",
  legend="right",
  major=NA,#"grey50",
  minor=NA#"grey90"
  ) {
  vjust=0.4
  hjust=0.5
  angle=90
  if(ls==1){
    vjust=1.02
    hjust=6
    angle=0
  }
  s.angle=-90
  if(strip.ls==1){
    s.angle=0
  }
  theme(
    axis.line=element_line(colour="black"),
    axis.text.x=element_text(family=number_family, size=base_size*0.8, lineheight=0.9, colour="black", vjust=1),
    axis.text.y=element_text(family=number_family, size=base_size*0.8, lineheight=0.9, colour="black", hjust=1),
    axis.ticks=element_line(colour="black", size=0.2), 
    axis.title.x=element_text(family=base_family, size=base_size, vjust=0.0, hjust=0.5), 
    axis.title.y=element_text(family=base_family, size=base_size, vjust=vjust, hjust=hjust, angle=angle),
    axis.ticks.length=unit(0.3, "cm"), 
    axis.ticks.margin=unit(0.1, "cm"),
    legend.background=element_rect(colour=NA),
    legend.margin=unit(0.2, "cm"), 
    legend.key=element_rect(fill=NA, colour=NA), 
    legend.key.size=unit(1.2, "lines"),
    legend.key.height = NULL, 
    legend.key.width = NULL, 
    legend.text=element_text(family=base_family, size=base_size*0.8,face="bold",hjust=0),
    legend.text.align = NULL, 
    legend.title=element_text(family=base_family, size=base_size*0.8,face="bold", hjust=0),
    legend.title.align = NULL, 
    legend.position=legend,
    legend.direction = NULL, 
    legend.justification = "center", 
    legend.box = NULL,
    panel.background=element_blank(),
    panel.border=element_rect(fill=NA, colour=border),
    panel.grid.major=element_line(colour=major, size=0.2), 
    panel.grid.minor=element_line(colour=minor, size=0.5), 
    panel.margin=unit(0.25, "lines"),
    strip.background=element_rect(fill="grey80",colour="black"),
    strip.text.x=element_text(family=base_family,face="plain",colour="black",size=base_size*0.8,hjust=0.5,vjust=0.5,angle=0,lineheight=0),
    strip.text.y=element_text(family=base_family,face="plain",colour="black",size=base_size*0.8,hjust=0.5,vjust=0.5,angle=s.angle,lineheight=0),
    plot.background=element_blank(),
    plot.title=element_text(family=base_family, size=base_size, face="plain", vjust=1),
    plot.margin=unit(c(margin.top, margin.side, margin.top, margin.side), "lines"), 
    complete=T)
}

ggplot2 のテーマを作成

2012-10-31追記—ggplot2 0.9.2 のテーマを作成 - joker8phoenixの日記
（以下の内容は0.9.1以前の古いバージョンに対応しています。）

ggplot2 ではデフォルトでも十分美しいグラフが描ける。しかし、灰色の背景や、フォント、軸線、などなどを変更したいかもしれない。ここでは、テーマを定義し利用する。このテーマを自分でカスタマイズすれば、ある程度思い通りのグラフが描けるだろう。ここで作成しているテーマは、mytheme()という関数名にしている。その内部に定義している変数（axis.text.xなど）はggplot2の凡例やタイトルの色や位置を変更 -- opts()でできること - joker8phoenix の日記を参照すると良い。

library(ggplot2)
library(ggExtra)
quartzFonts(HiraMaru=quartzFont(rep(c("HiraMaruProN-W3","HiraMaruProN-W6"), 2)))
quartzFonts(HiraKaku=quartzFont(rep(c("HiraKakuProN-W3","HiraKakuProN-W6"), 2)))

##############
### colour ###
##############
cCyan <- "#00a0e9"
cMagenta <- "#e4007f"
cGreen <- "#009944"
cOrange <- "#f39800"
cLightBlue <- "#0068b7"
qcolours <- c(cCyan,cMagenta,cGreen,cLightBlue,cOrange)
scolours = colorRampPalette(c(cCyan,"grey60",cOrange))

#############
### theme ###
#############
mytheme <- function (
  base_size=20,
  title="",
  margin.top=1,
  margin.side=1,
  base_family="HiraKaku",
  number_family="Helvetica"
  ) {
  structure(list(
    title=title,
    axis.text.x=theme_text(family=number_family, size=base_size*0.8, 
                           lineheight=0.9, colour="black", vjust=1),
    axis.text.y=theme_text(family=number_family, size=base_size*0.8, 
                           lineheight=0.9, colour="black", hjust=1),
    axis.title.x=theme_text(family=base_family, size=base_size, vjust=0.5,hjust=0.9), 
    axis.title.y=theme_text(family=base_family, size=base_size, vjust=0.5, hjust=0.9,angle=90),
    axis.line=theme_segment(colour="black"),
    axis.ticks=theme_segment(colour="grey50"), 
    axis.ticks.length=unit(0.15, "cm"), 
    axis.ticks.margin=unit(0.2, "cm"),
    legend.background=theme_rect(colour="white"), 
    legend.key=theme_rect(fill="white", colour="white"), 
    legend.key.size=unit(1.2, "lines"),
    legend.text=theme_text(family=base_family, size=base_size*0.8),
    legend.title=theme_text(family=base_family, size=base_size*0.8,
                            face="bold", hjust=0),
    legend.position="right",
    panel.background=theme_blank(),
    panel.border=theme_blank(),
    panel.margin=unit(0.25, "lines"),
    panel.grid.major=theme_line(colour="white"), 
    panel.grid.minor=theme_line(colour="white", size=0.25), 
    plot.background=theme_blank(),
    plot.title=theme_text(family=base_family, size=base_size*1.0,
                          face="bold", vjust=1),
    plot.margin=unit(c(margin.top, margin.side, margin.top, margin.side), "lines"),
    strip.background=theme_rect(fill="grey80",colour="black"),
    strip.text.x=theme_text(family=base_family,face="plain",colour="black",size=base_size*0.8,hjust=0.5,vjust=0.5,angle=0,lineheight=0),
    strip.text.y=theme_text(family=base_family,face="plain",colour="black",size=base_size*0.8,hjust=0.5,vjust=0.5,angle=-90,lineheight=0)
    ), class = "options")
}

このテーマをmyggplot2.Rとして保存して呼び出すには、冒頭に

source("~/[ファイルの場所]/myggplot2.R")

とすれば良い。