Rで解析：文字を縁取りしてプロットします「shadowtext」パッケージ

指定した文字に縁取りを加えてプロットします。ggplot2パッケージでも利用できます。

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

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

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

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

コマンドの紹介

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("shadowtext")
#ggplot2&#12434;&#21033;&#29992;&#12377;&#12427;&#12383;&#12417;&#12395;tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12434;&#35501;&#12415;&#36796;&#12415;
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
n <- 30
TestData <- data.frame(x = rnorm(n), y = rnorm(n, mean = 0, sd = 3),
                       Text = sample(c("karada", "Good", "&#12363;&#12425;&#12384;&#12395;", "&#12356;&#12356;&#12418;&#12398;"), n, replace = TRUE),
                       Col = sample(c("#426617", "#bfe6d5", "#7a430e", "#eededc"), n, replace = TRUE),
                       BgCol = sample(c("#f6adad", "#df6d68", "#9e323a", "#94bbe3"), n, replace = TRUE),
                       Size = sample(6:10, n, replace = TRUE), Angle = sample(0:90, n, replace = TRUE))
########

#&#32257;&#21462;&#12426;&#25991;&#23383;&#12434;&#12503;&#12525;&#12483;&#12488;:grid.shadowtext&#12467;&#12510;&#12531;&#12489;
#&#12486;&#12461;&#12473;&#12488;&#20869;&#23481;:label&#12458;&#12503;&#12471;&#12519;&#12531;
#&#34920;&#31034;&#20301;&#32622;:x,y&#12458;&#12503;&#12471;&#12519;&#12531;;&#26368;&#22823;&#12391;1,&#20363;&#12391;&#12399;&#35079;&#25968;&#25351;&#23450;
#&#25991;&#23383;&#33394;&#12434;&#25351;&#23450;:gp&#12458;&#12503;&#12471;&#12519;&#12531;;gpar&#12467;&#12510;&#12531;&#12489;&#12434;&#21033;&#29992;
#&#32257;&#21462;&#12426;&#12398;&#33394;&#12434;&#25351;&#23450;:bg.colour&#12458;&#12503;&#12471;&#12519;&#12531;
#&#32257;&#21462;&#12426;&#12398;&#22823;&#12365;&#12373;&#12434;&#25351;&#23450;:bg.r&#12458;&#12503;&#12471;&#12519;&#12531;
grid.shadowtext(label = "&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;",
                x = c(.3, .5), y = c(.2, .55),
                gp = gpar(cex = 3, col = "#bfe6d5"),
                bg.colour = "#df6d68", bg.r = 0.1, rot = -45)

#ggplot2&#12497;&#12483;&#12465;&#12540;&#12472;&#12391;&#21033;&#29992;:geom_shadowtext&#12467;&#12510;&#12531;&#12489;
ggplot(TestData, aes(x = x, y = y, label = Text,
                     col = Col, bg.color = BgCol,
                     size = Size, angle = Angle)) +
  geom_shadowtext(show.legend = FALSE) + theme_classic()

出力例

・grid.shadowtextコマンド

・geom_shadowtextコマンド

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