Rで解析：影付きのggplot を作成！！「ggshadow」パッケージ

影付きのLinePlot、PointPlot、階段状プロットなどを「ggplot2」パッケージを利用して作成するパッケージの紹介です。「ggplot2」パッケージのコマンドを合わせて使用することができます。

パッケージバージョンは0.0.5。実行コマンドはwindows 11のR version 4.4.1で確認しています。

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

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

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

実行コマンド

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

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

### データ例の作成 #####
# tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
set.seed(1234)
n <- 50
TestData <- tibble(Group = sample(paste0("Group", 1:4), n,
                                  replace = TRUE),
                   X_num_Data = sample(c(1:50), n, replace = TRUE),
                   Y_num_Data = sample(c(51:100), n, replace = TRUE),
                   ShadowSize = sample(runif(10, 1, 8), n, replace = TRUE))
########

# 影付きのLinePlotを作成:geom_shadowlineコマンド
ggplot(TestData, aes(x = X_num_Data, y = Y_num_Data,
                     color = Group)) +
  geom_shadowline(shadowcolor = "yellow", # 影色を指定
                  shadowalpha = 0.4, # 影透明度を指定
                  shadowsize = TestData$ShadowSize, # 影幅を指定
                  size = 1.5) + 
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white")) 


# 影付きのPointPlotを作成:geom_shadowpointコマンド
ggplot(TestData, aes(x = X_num_Data, y = Y_num_Data)) +
  geom_shadowpoint(color = "yellow", # 影色を指定
                   alpha = 0.7, # 塗透明度を指定
                   size = 8) + 
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white")) 


# 影付きの階段状プロットを作成:geom_shadowstepコマンド
ggplot(TestData, aes(x = X_num_Data, y = Y_num_Data)) +
  geom_shadowstep(shadowcolor = "yellow", # 影色を指定
                  shadowalpha = 0.8, # 影透明度を指定
                  size = 1.5) + 
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white"))