指定した文字に縁取りを加えてプロットします。ggplot2パッケージでも利用できます。
パッケージバージョンは0.1.1。実行コマンドはwindows 11のR version 4.1.2で動作を確認しています。
パッケージのインストール
下記コマンドを実行してください。
#パッケージのインストール
install.packages("shadowtext")
コマンドの紹介
詳細はコマンド、パッケージのヘルプを確認してください。
#パッケージの読み込み
library("shadowtext")
#ggplot2を利用するためにtidyverseパッケージを読み込み
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
install.packages("tidyverse");require("tidyverse")
}
###データ例の作成#####
n <- 30
TestData <- data.frame(x = rnorm(n), y = rnorm(n, mean = 0, sd = 3),
Text = sample(c("karada", "Good", "からだに", "いいもの"), 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))
########
#縁取り文字をプロット:grid.shadowtextコマンド
#テキスト内容:labelオプション
#表示位置:x,yオプション;最大で1,例では複数指定
#文字色を指定:gpオプション;gparコマンドを利用
#縁取りの色を指定:bg.colourオプション
#縁取りの大きさを指定:bg.rオプション
grid.shadowtext(label = "からだにいいもの",
x = c(.3, .5), y = c(.2, .55),
gp = gpar(cex = 3, col = "#bfe6d5"),
bg.colour = "#df6d68", bg.r = 0.1, rot = -45)
#ggplot2パッケージで利用:geom_shadowtextコマンド
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コマンド
少しでも、あなたの解析が楽になりますように!!