影付きのLinePlot、PointPlot、StairstepPlotなどを「ggplot2」パッケージを利用して作成するパッケージの紹介です。「ggplot2」パッケージのコマンドを合わせて使用することができます。
パッケージバージョンは0.0.2。実行コマンドはwindows 11のR version 4.1.3で確認しています。
パッケージのインストール
下記、コマンドを実行してください。
#パッケージのインストール
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"))
出力例
・geom_shadowlineコマンド

・geom_glowlineコマンド

・geom_shadowpointコマンド

・geom_shadowstepコマンド

少しでも、あなたの解析が楽になりますように!!