Rで解析:ggplot2の体裁をインタラクティブに操作可能!「ggThemeAssist」パッケージ


投稿日: Rの解析に役に立つ記事

ggplot2の体裁をインタラクティブに整えることができるパッケージの紹介です。このようなパッケージがリリースされたことに驚きです。

シンボルの色を事前に指定すること、RStudioからの利用が必須ですが非常に便利なパッケージです。操作例を動画で収録しました。参考までに確認いただければと思います。

ggplotオブジェクト作製後、RStudio上部のAddinsよりggThemeAssistを選択することで立ち上がります。

・パッケージ利用に必須なRStudio公式ホームページ
 https://www.rstudio.com/

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

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

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

#パッケージのインストール
install.packages("ggThemeAssist")

実行コマンドの紹介

詳細はコマンド内を確認ください。

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

#ggplot2パッケージがインストールされていなければ以下を実行
#install.packages("ggplot2")
#ggplot2を読み込み
library("ggplot2")

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

#箱ひげ図を作成
BoxPlot <- ggplot(TestData, aes(x = TestData[, 1], y = TestData[, 2],
                                group = TestData[, 1], fill = TestData[, 1])) +
  geom_boxplot()

#ggplotオブジェクトを選択し上部"Addins"から"ggThemeAssist"を選択
BoxPlot

#動画操作終了後に出力されるコード
BoxPlot + theme(axis.line = element_line(colour = "bisque1", 
    size = 15, linetype = "solid"), panel.grid.major = element_line(colour = "grey96"), 
    panel.grid.minor = element_line(colour = "hotpink3", 
        size = 5), axis.title = element_text(colour = "blue"), 
    axis.text = element_text(angle = 60), 
    plot.title = element_text(colour = "bisque"), 
    legend.text = element_text(size = 20, 
        colour = "blue2"), legend.title = element_text(size = 20, 
        colour = "blue"), panel.background = element_rect(fill = "indianred1", 
        colour = "aliceblue", size = 5, linetype = "solid"), 
    plot.background = element_rect(fill = "aliceblue", 
        colour = "aquamarine", size = 1.5, 
        linetype = "solid"), legend.key = element_rect(colour = "blue4", 
        size = 1.5, linetype = "solid"), 
    legend.background = element_rect(colour = "blueviolet", 
        size = 1.5, linetype = "solid"), 
    legend.position = c(0.8, 0.3)) + labs(title = "TEST", 
    x = "DATA1", y = "DATA2", colour = "blue", 
    fill = "Group")

操作例


出力例

ggThemeAssist


少しでも、あなたのウェブや実験の解析が楽になりますように!!

スポンサードリンク

おすすめコンテンツ


スポンサードリンク