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

#パッケージのインストール
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,
                     colour = 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")) 

#塗の影付きのLinePlotを作成:geom_glowlineコマンド
ggplot(TestData, aes(x = X_num_Data, y = Y_num_Data,
                     colour = Group, fill = Group)) +
  geom_glowline(shadowcolor = "yellow", #影色を指定
                alpha = 0.7) + #塗透明度を指定
  guides(color = "none", shadowcolour = "none", fill = "none") +
  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")) 

#影付きのStairstepPlotを作成: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"))