Rで解析：コンソールのテキストに色付けが楽しいです「multicolor」パッケージ

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

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

###データ例の作成#####
set.seed(1234)
n <- 300
TestData <- paste(sample(c(LETTERS, " "), n, replace = TRUE),
                  collapse = "")
########

#&#12467;&#12531;&#12477;&#12540;&#12523;&#34920;&#31034;&#12434;&#12459;&#12521;&#12501;&#12523;&#12395;&#12377;&#12427;:multi_color&#12467;&#12510;&#12531;&#12489;
#&#34920;&#31034;&#20869;&#23481;:txt&#12458;&#12503;&#12471;&#12519;&#12531;
#&#33394;&#25351;&#23450;:colors&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20986;&#21147;&#12479;&#12452;&#12503;:type&#12458;&#12503;&#12471;&#12519;&#12531;;"message","warning","string","rmd"
#&#33394;&#12398;&#26041;&#21521;:direction&#12458;&#12503;&#12471;&#12519;&#12531;;"horizontal"/"vertical"
#&#33394;&#12398;&#20184;&#12369;&#26041;:recycle_chars;TRUE:&#19968;&#25991;&#23383;&#12378;&#12388;/FALSE:&#20840;&#20307;&#12434;&#20598;&#25968;&#12391;&#20998;&#21106;
multi_color(txt = TestData,
            colors = c("mediumpurple",
                       "rainbow",
                       "cyan3"),
            type = "message",
            direction = "vertical",
            recycle_chars = FALSE)

#&#12486;&#12461;&#12473;&#12488;&#12434;&#19977;&#35282;&#24418;&#34920;&#31034;&#12395;&#25972;&#12360;&#12427;:triangle_string&#12467;&#12510;&#12531;&#12489;
#multi_color&#12467;&#12510;&#12531;&#12489;&#12392;&#32068;&#12415;&#21512;&#12431;&#12379;&#12360;&#20351;&#29992;&#12375;&#12414;&#12377;
#&#38914;&#28857;&#12398;&#25991;&#23383;&#25968;&#12434;&#25351;&#23450;:maxlen&#12458;&#12503;&#12471;&#12519;&#12531;
#&#34892;&#12372;&#12392;&#12395;&#22679;&#21152;&#12377;&#12427;&#25991;&#23383;&#25968;:step&#12458;&#12503;&#12471;&#12519;&#12531;;
#&#12510;&#12452;&#12490;&#12473;&#12391;&#36870;&#19977;&#35282;&#24418;,maxlen&#12458;&#12503;&#12471;&#12519;&#12531;&#12434;&#22823;&#12365;&#12367;&#12377;&#12427;&#12398;&#12364;&#12509;&#12452;&#12531;&#12488;
triangle_string(string = TestData,
                maxlen = 3, step = 3, 
                display = FALSE) %>%
  multi_color()

#&#25991;&#23383;&#12398;&#20013;&#22830;&#23492;&#12379;:center_string&#12467;&#12510;&#12531;&#12489;
#triangle_string&#12467;&#12510;&#12531;&#12489;&#12398;&#27425;&#12395;&#20351;&#29992;&#12377;&#12427;
triangle_string(string = TestData,
                maxlen = 3, step = 3, 
                display = FALSE) %>%
  center_string() %>%
  multi_color()

###&#12362;&#12414;&#12369;RStudio&#12398;Viewer&#12391;&#34920;&#31034;&#12377;&#12427;#####
#&#12487;&#12540;&#12479;&#12434;&#28310;&#20633;
triangle_string(string = TestData,
                maxlen = 3, step = 3, 
                display = FALSE) %>%
  multi_color(type = "rmd",
              add_leading_newline = TRUE) -> TestHTML

#temp&#12501;&#12457;&#12523;&#12480;&#12395;&#12501;&#12449;&#12452;&#12523;&#12434;&#20445;&#23384;&#12375;RStudio&#12398;Viewer&#12391;&#34920;&#31034;
Test.File <- tempfile(fileext = ".html")
cat(paste0("<div style='font-family: Monaco'>",
           TestHTML, "</div>"),
    file = Test.File)
rstudioapi::viewer(Test.File)
########