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


投稿日: Rの解析に役に立つ記事

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

パッケージバージョンは0.0.2。windows 10のR version 3.4.2で動作を確認しています。


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

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

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



コマンドの紹介

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

#パッケージの読込み
library("shadowtext")

###データ例の作成#####
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.colorオプション
#縁取りの大きさを指定:bg.rオプション
grid.shadowtext(label = "からだにいいもの",
                x = c(.3, .5), y = c(.5, .75),
                gp = gpar(cex = 3, col = "#bfe6d5"),
                bg.color = "#df6d68", bg.r = 0.1,
                rot = -45)

#ggplot2パッケージで利用:geom_shadowtextコマンド
#library("ggplot2")
TextPlot <- ggplot(TestData, aes(x = x, y = y, label = Text,
                                 col = Col, bg.color = BgCol,
                                 size = Size, angle = Angle))
TextPlot + geom_shadowtext(show.legend = FALSE) + theme_classic()

出力例

・grid.shadowtextコマンド

・geom_shadowtextコマンド


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

スポンサードリンク

関連コンテンツ


スポンサードリンク