Rで解析：領域にテキストを収めて描写「ggfittext」パッケージ

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

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

###データ例の作成#####
TestData <- data.frame(Group = paste0("Group", 1:4),
                          XMin = c(1, 2, 3, 5),
                          XMax = c(1.5, 3, 5, 6),
                          YMin = c(1, 2, 3, 1),
                          YMax = c(2, 3, 5, 3),
                          Label = rep(c("https://www.karada-good.net",
                                        "からだにいいもの"), 2))
########

#領域にテキストを収めて描写:geom_fit_textコマンド
#テキストを折り返して表示:reflowオプション;TRUEで折り返し
#領域に合わせてテキストサイズを調整:growオプション
ggplot(TestData, aes(xmin = XMin, xmax = XMax,
                     ymin = YMin, ymax = YMax,
                     label = Label, fill = Group)) +
  geom_rect() +
  geom_fit_text(reflow = TRUE, grow = TRUE)