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

Rの解析に役に立つ記事
スポンサーリンク

指定した文字に縁取りを加えてプロットします。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コマンド


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

タイトルとURLをコピーしました