Rで解析：プロット軸の装飾がラクラク「magicaxis」パッケージ

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

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

###データ例の作成#####
TestData <- data.frame(Group = paste0("TEST", 1:100),
                       Data1 = sample(1:500, 100),
                       Data2 = sample(200:300, 100))
####

#&#36600;&#12398;&#20307;&#35009;&#12434;&#35519;&#25972;&#12377;&#12427;:magaxis&#12467;&#12510;&#12531;&#12489;
#&#36600;&#12398;&#35519;&#25972;;side&#12458;&#12503;&#12471;&#12519;&#12531;:1 = bottom, 2 = left, 3 = top, 4 = right
#&#20027;&#12513;&#12514;&#12522;&#12398;&#20998;&#21106;&#35373;&#23450;;majorn, &#38263;&#12373;;tcl
#&#21103;&#12513;&#12514;&#12522;&#12398;&#20998;&#21106;&#35373;&#23450;;minorn, &#38263;&#12373;;ratio
#&#36600;&#12434;&#20302;10&#12398;log&#12395;&#22793;&#25563;;unlog&#12458;&#12503;&#12471;&#12519;&#12531;:"x", "y", "xy" or "yx" or "Auto"
#&#21508;&#36600;&#21517;&#12521;&#12505;&#12523;&#12398;&#36317;&#38626;;mtline
#&#36600;&#12521;&#12505;&#12523;&#12434;&#12409;&#12365;&#20055;&#34920;&#31034;;crunch: TRUE of FALSE
#&#30446;&#30427;&#38291;&#38548;&#12434;&#25351;&#23450;;prettybase
#mac&#12391;&#12398;&#26085;&#26412;&#35486;&#25991;&#23383;&#21270;&#12369;&#38450;&#27490;
#par(family = "HiraKakuProN-W3")
#&#12505;&#12540;&#12473;&#12392;&#12394;&#12427;&#22259;&#12434;&#12503;&#12525;&#12483;&#12488;
plot(TestData[, 2], TestData[, 2], pch = 19, col = "#4b61ba",
     cex = 1.5, axes = FALSE, xlab = "", ylab = "")
#&#36600;&#12434;&#12503;&#12525;&#12483;&#12488;
magaxis(side = c(1, 2, 4), majorn = 3, minorn = 3, tcl = 0.7, ratio = 1.8, labels = TRUE,
        unlog = "Auto", mgp = c(2, 0.5, 0), mtline = 2, xlab = "&#12486;&#12473;&#12488;", ylab = "test",
        crunch = TRUE, prettybase = 50, family = "HiraKakuProN-W3", col = "#a87963",
        col.axis = "red", lwd = 3)
####

#&#12496;&#12540;&#12521;&#12505;&#12523;&#12434;&#22259;&#12395;&#36861;&#21152;:magbar&#12467;&#12510;&#12531;&#12489;
#&#12521;&#12505;&#12523;&#12513;&#12514;&#12522;&#12398;&#38291;&#38548;&#22793;&#26356;:labN&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21521;&#12365;&#12392;&#12469;&#12452;&#12474;&#12398;&#22793;&#26356;:orient&#12392;scale&#12458;&#12503;&#12471;&#12519;&#12531;
#mac&#12391;&#12398;&#26085;&#26412;&#35486;&#25991;&#23383;&#21270;&#12369;&#38450;&#27490;
par(family = "HiraKakuProN-W3")
#&#12505;&#12540;&#12473;&#12392;&#12394;&#12427;&#22259;&#12434;&#12503;&#12525;&#12483;&#12488;
plot(TestData[, 2], TestData[, 2], type = "n", axes = FALSE, xlab = "", ylab = "")
box()
#&#33394;&#12434;&#35373;&#23450;
ColBar <-colorRampPalette(c("#deb7a0", "#e1e6ea", "#ffdd99"))
#&#12496;&#12540;&#12521;&#12505;&#12523;&#12434;&#12503;&#12525;&#12483;&#12488;
magbar("top", title = "&#26222;&#36890;", titleshift = 0.8, col = ColBar(100))
#&#12513;&#12514;&#12522;&#38291;&#38548;&#12434;&#22793;&#26356;
magbar("right", title = "&#12513;&#12514;&#12522;&#12398;&#38291;&#38548;&#22793;&#26356;", labN = 3,
       titleshift = 0.8, col = ColBar(100))
#&#21521;&#12365;&#12434;&#22793;&#26356;
magbar("topleft", orient = "h", title = "&#21521;&#12365;&#12539;&#12469;&#12452;&#12474;", titleshift = 1,
       col = ColBar(100), scale = c(0.2, 0.5))
####

#&#12487;&#12540;&#12479;&#20998;&#24067;&#12434;&#12498;&#12540;&#12488;&#12510;&#12483;&#12503;&#12391;&#34920;&#31034;:magcon&#12467;&#12510;&#12531;&#12489;
#&#33394;&#12398;&#35373;&#23450;
ColBar <-colorRampPalette(c("#deb7a0", "#e1e6ea", "#ffdd99"))
#&#12503;&#12525;&#12483;&#12488;
magcon(TestData[, 2], TestData[, 2],
       imcol = ColBar(100), barposition = "bottomright")