Rでお遊び：変わったプロットfishPlotの「fishiplot」パッケージ

#パッケージのインストール
install.packages(c("Hmisc","plotrix","png"))
install.packages("devtools")
devtools::install_github("chrisamiller/fishplot")

#パッケージの読み込み
library("fishplot")
#時系列データの作成
TimePoints <- c(0,30,75,150)
#プロットデータの作成
PlotData <- matrix(c(100, 45, 00, 00,
                        02, 00, 00, 00,
                        02, 00, 02, 01,
                        98, 00, 95, 40),
                      ncol = length(TimePoints))
#親子関係を指定するベクトル
Parents <- c(0,1,1,3)
########

#FishPlotデータの作成:createFishObjectコマンド
FishPlotData <- createFishObject(PlotData,
                                    Parents,
                                    TimePoints)

#FishPlotデータに描写領域を付与:layoutClonesコマンド
FishPlotData <- layoutClones(FishPlotData)

#FishPlotを描写:fishPlotコマンド
#線の引き方を指定:shapeオプション;"spline","polygon","bezier"が指定可能
#データ毎の枠線の色:borderCol
fishPlot(FishPlotData, shape = "spline", title.btm = "TEST",
         borderCol = "blue", cex.title = 0.5, vlines = c(0,150),
         vlab = c("day 0","day 150"))

#例えばデータ毎の塗色を変える場合
FishPlotData@col <- c("blue", "green", "yellow", "black")