Rで解析：ggplot2の図の体裁操作がちょっとは楽になるかも「ggeasy」パッケージ

ggplot2で図の凡例のタイトルや位置、テキストのサイズや色、プロットエリアのグリッド削除などを簡単に設定できるパッケージの紹介です。一部コマンドでggplot2の再現コマンド例を紹介します。

パッケージバージョンは0.1.5。実行コマンドはR version 4.4.2で確認しています。

パッケージのインストールと読み込み

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

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

実行コマンド

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

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

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

### プロット例の作成 #####
# tidyverseパッケージの読み込み
# tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

TestPlot <- ggplot(TestData, aes(x = Data1, y = Data2,
                                 color = Group, size = Data2)) +
  geom_point()
########

## 凡例タイトルの変更:easy_add_legend_titleコマンド
# 指定しなければ全凡例タイトルを変更
TestPlot +
  easy_add_legend_title("Test")

# 特定の凡例タイトルを変更
TestPlot +
  easy_add_legend_title(color =　"Test")

# ggplot2再現例
# TestPlot + labs(color = "Test") 


## 凡例タイトル位置の変更:easy_change_legendコマンド
# 位置の指定:toオプション;"right","none","left","bottom","top"
TestPlot +
  easy_change_legend(to = "left")

# ggplot2再現例
# TestPlot + theme(legend.position = "left")


## 凡例タイトルの削除:easy_remove_legendコマンド
# 指定しなければ全凡例タイトルを変更
TestPlot +
  easy_remove_legend()

# 特定の凡例タイトルを変更
TestPlot +
  easy_remove_legend(color)

# ggplot2再現例
# TestPlot + guides(color = "none",
#                   size = "none")


## 凡例内容の回転:easy_rotate_legendコマンド
# 回転方向:toオプション;"vertical","horizontal"
TestPlot +
  easy_rotate_legend(to = "horizontal")

# ggplot2再現例
# TestPlot + guides(color = guide_legend(direction = "horizontal"),
#                   size = guide_legend(direction = "horizontal"))


## 凡例の削除:easy_remove_legend_titleコマンド
TestPlot +
  easy_remove_legend_title()

# ggplot2再現例
# TestPlot + labs(colour = NULL, size = NULL)


### テキスト関係のコマンド #####
# 全てのテキストのサイズを指定:easy_all_text_sizeコマンド
TestPlot +
  easy_all_text_size(size = 20)

# 指定したテキストのサイズを指定:easy_text_sizeコマンド
# 場所の指定:“text”,“axis.text”,"axis.text.x”,“axis.text.y”,
#“axis.title”,“axis.title.x”,“axis.title.y”,“legend.text”,
#“legend.title”,“plot.title”,“plot.subtitle”,“plot.caption”,
#“strip.text”,“strip.text.x”,“strip.text.y”
TestPlot +
  easy_text_size(which = "axis.title.x", size = 20)

# 全てのテキスト色を指定:easy_all_text_colorコマンド
TestPlot +
  easy_all_text_color(color = "red")

# 指定したテキスト色を指定:easy_all_text_colorコマンド
# 場所の指定はeasy_text_sizeコマンドを参照
TestPlot +
  easy_text_color(which = "axis.title.x", color = "red")

# 軸テキストの回転:easy_rotate_labelsコマンド
# 軸を指定:whichオプション;"both", "x", "y"
# 角度を指定:angleオプション
# テキストの水平方向の配置:sideオプション;"left","middle","right"
# 「easy_rotate_x_labels」,「easy_rotate_y_labels」コマンドもあり 
TestPlot +
  easy_rotate_labels(which = "both", angle = 45, side = "middle")

# ggplot2再現例
# TestPlot +
#   theme(axis.text.x = element_text(angle = 45, vjust = 0.5, hjust = 1),
#         axis.text.y = element_text(angle = 45, vjust = 0.5, hjust = 1),
#         #axis.text = element_text(angle = 45, vjust = 0.5, hjust = 1)
#         ) 


### プロットエリアの調整 #####
# グリッド（線）を削除:easy_remove_gridlinesコマンド
# 方向:axisオプション;"both", "x", "y"
# minorグリッド:minorオプション;TRUE(削除)/FALSE
# majorグリッド:majorオプション;TRUE/FALSE
# 「easy_remove_x_gridlines」/「easy_remove_y_gridlines」コマンドもある
TestPlot +
  easy_remove_gridlines(axis = "both",
                        minor = FALSE,
                        major = TRUE)

# 軸の色々を削除:easy_remove_axesコマンド
# 方向:whichオプション;"both","x","y"
# 削除内容を指定:whatオプション;"ticks","title","text","line"
TestPlot +
  easy_remove_axes(which = "both", what = c("ticks", "title", "text", "line"))

# ggplot2再現例
# TestPlot +
#   theme(#panel.grid.major = element_blank(),
#         #panel.grid.minor = element_blank(),
#         panel.grid = element_blank(),
#         panel.border = element_blank(),
#         axis.text = element_blank(),
#         axis.title = element_blank(),
#         axis.ticks = element_blank())