Rで解析：plotコマンドの利用に大変便利です「tea.eo.plots」パッケージ

Githubで前から気になっていた、plotコマンドの装飾に便利な「tea.eo.plots」パッケージを紹介します。パッケージの管理者はeinaookaさんで、日本の方のようです。

なお、本パッケージの他に「tea.color」もリリースされています。こちらは、使い勝手の良いカラーパレットが収録されています。実行コマンドでは紹介しませんが、本パッケージのインストール及び利用に必要です。

気になる方は下記URLを参考下さい。

・「tea.color」パッケージ
　https://github.com/einaooka/tea.color

パッケージバージョンは0.1。実行コマンドはwindows 7およびOS X 10.11.2のR version 3.2.3で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#パッケージのインストール
library("devtools")
devtools::install_github("einaooka/tea.color")
devtools::install_github("einaooka/tea.eo.plots")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("tea.eo.plots")
library("tea.color")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 100
TestData <- data.frame(Group = sample(paste0("Group ", 1:4), n, replace = TRUE),
                       Data1 = sample(0:100, n, replace = TRUE))
########

#&#35036;&#21161;&#32218;&#12434;&#36861;&#21152;:DrawHLines&#12467;&#12510;&#12531;&#12489;
#ylim&#12392;num.lines&#12395;max&#12467;&#12510;&#12531;&#12489;&#12391;&#20516;&#12434;&#25351;&#23450;&#12377;&#12427;&#12392;
#&#30446;&#30427;&#12426;&#12395;&#21512;&#12358;&#32218;&#12364;&#24341;&#12369;&#12414;&#12377;,&#12487;&#12540;&#12479;&#31684;&#22258;&#12364;100&#12434;&#36234;&#12377;&#12392;
#&#32048;&#12363;&#12356;&#12398;&#12391;num.lines&#12458;&#12503;&#12471;&#12519;&#12531;&#12434;&#36969;&#26178;&#35373;&#23450;
plot(x = TestData[, 1], y = TestData[, 2])
DrawHLines(ylim = c(0, max(TestData[, 2])),
           num.lines = max(TestData[, 2]))

#&#12503;&#12525;&#12483;&#12488;&#12456;&#12522;&#12450;&#12434;&#20998;&#21106;:Layout&#12467;&#12510;&#12531;&#12489;
#&#20998;&#21106;&#12394;&#12375;:Layout0&#12467;&#12510;&#12531;&#12489;
#6&#20998;&#21106;:Layout6&#12467;&#12510;&#12531;&#12489;
#12&#20998;&#21106;:Layout12&#12467;&#12510;&#12531;&#12489;
#&#12479;&#12452;&#12488;&#12523;&#12473;&#12506;&#12540;&#12473;&#12398;&#20301;&#32622;:title&#12458;&#12503;&#12471;&#12519;&#12531;;2:y&#36600;&#20596;,3:&#19978;&#37096;
Layout6(title = 3)
for(i in 1:3){
  plot(x = TestData[, 1], y = TestData[, 2], axes = FALSE, main = i)
  box(fg = gray(0.5)); axis(1, fg = gray(0.5), col = gray(0.5))
  plot(x = TestData[, 1], y = TestData[, 2], main = i,
       axes = FALSE, col = c("red", "orange", "yellow"))
  box(fg = gray(0.5)); axis(1, fg = gray(0.5), col = gray(0.5))
}
#&#20998;&#21106;&#12394;&#12375;&#12395;&#12503;&#12525;&#12483;&#12488;&#12456;&#12522;&#12450;&#12434;&#25147;&#12377;
Layout0()

#&#12503;&#12525;&#12483;&#12488;&#12395;&#20998;&#20301;&#25968;&#12398;&#24773;&#22577;&#12434;&#36861;&#21152;:PlotStochastic&#12467;&#12510;&#12531;&#12489;
#&#33394;&#12398;&#35373;&#23450;:col.f&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20998;&#20301;&#25968;&#12398;&#35373;&#23450;:q1,q2&#12458;&#12503;&#12471;&#12519;&#12531;
PlotStochastic(TestData[, 1], TestData[, 2], col.f = blue.f,
               q1 = c(0.05, 0.95), q2 = c(0.25, 0.75))