Rで解析：プロットのアウトラインとハイライトが簡単に作成「ggtrace」パッケージ

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

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

###データ例の作成#####
#tidyverseパッケージがなければインストール
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
set.seed(1234)
n <- 30
GName <- paste0("Group", 1:3)
TestData <- tibble(Group = rep(GName, each = n),
                   Day = rep(1:n, time = length(GName)),
                   X = sample(c(1:50), n*length(GName), replace = TRUE),
                   Y = sample(c(51:100), n*length(GName), replace = TRUE))
########

#LinePlotのアウトラインとハイライトを作成:geom_line_traceコマンド
#類似にgeom_path_traceコマンドがあります
ggplot(TestData, aes(x = Day, y = Y, fill = Group)) +
  
  #geom_line_traceコマンド
  geom_line_trace(
    #アウトライン範囲を設定:trace_positionオプション
    #grepl("^[A-Z]A", name)など正規表現でも指定可能
    trace_position = Day <= 10 | Day >= 20,
    
    #アウトライン範囲の書式を設定:background_paramsオプション
    #list形式で指定します
    background_params = list(
      #線縁の色
      color = "red",
      #線の色
      fill = "grey75",
      #線の太さ
      size = 1,
      #線縁の太さ
      stroke = 0.5,
      #線種
      linetype = 1,
      #透明度
      alpha = 0.5),
    
    #アウトライン範囲以外のハイライト書式
    color = "#4b61ba", size = 1, stroke = 1,
    linetype = 1, alpha = 1) +
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white"))



#StepPlotのアウトラインとハイライトを作成:geom_step_traceコマンド
ggplot(TestData, aes(x = Day, y = Y, fill = Group)) +
  #geom_step_traceコマンド
  #オプションはgeom_line_traceコマンドと共通
  geom_step_trace(
    trace_position = Day <= 10 | Day >= 20,
    background_params = list(color = "red", fill = "grey75",
                             size = 1, stroke = 0.5,
                             linetype = 1, alpha = 0.5),
    color = "#4b61ba", size = 1, stroke = 1,
    linetype = 1, alpha = 1) +
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white"))


#PointPlotのアウトラインとハイライトを作成:geom_point_traceコマンド
ggplot(TestData, aes(x = X, y = Y, fill = Group)) +
  #geom_point_traceコマンド
  #オプションはgeom_line_traceコマンドと共通
  geom_point_trace(
    trace_position = Day <= 10 | Day >= 20,
    background_params = list(color = "red", fill = "yellow",
                             size = 8, stroke = 0.5,
                             linetype = 1, alpha = 0.5),
    color = "#4b61ba", size = 1, stroke = 1,
    linetype = 1, alpha = 1) +
  theme(plot.background = element_rect(fill = "black"),
        panel.background = element_rect(fill = "black"),
        axis.text = element_text(colour = "white"))