Rで解析：データの操作に便利です！！「berryFunctions」パッケージ

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

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

###データ例の作成#####
n <- 200
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "Data1" = sample(1:50, n, replace = TRUE),
                       "Data2" = sample(1:35, n, replace = TRUE),
                       "Data3" = sample(1:10, n, replace = TRUE))
########

#&#32113;&#35336;&#37327;&#12395;&#12424;&#12427;&#12464;&#12521;&#12487;&#12540;&#12471;&#12519;&#12531;&#20184;&#12398;&#25955;&#24067;&#22259;:colPoints&#12467;&#12510;&#12531;&#12489;
#x&#36600;&#12398;&#38917;&#30446;&#12434;&#35373;&#23450;:x&#12458;&#12503;&#12471;&#12519;&#12531;
#y&#36600;&#12398;&#38917;&#30446;&#12434;&#35373;&#23450;:y&#12458;&#12503;&#12471;&#12519;&#12531;
#&#32113;&#35336;&#37327;&#12434;&#35373;&#23450;:z&#12458;&#12503;&#12471;&#12519;&#12531;
#x&#36600;&#12521;&#12505;&#12523;&#12434;&#35373;&#23450;:xlab&#12458;&#12503;&#12471;&#12519;&#12531;
#y&#36600;&#12521;&#12505;&#12523;&#12434;&#35373;&#23450;:ylab&#12458;&#12503;&#12471;&#12519;&#12531;
#&#32113;&#35336;&#37327;&#12521;&#12505;&#12523;&#12434;&#35373;&#23450;:zlab&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12503;&#12525;&#12483;&#12488;&#12471;&#12531;&#12508;&#12523;&#12434;&#35373;&#23450;:pch&#12458;&#12503;&#12471;&#12519;&#12531;;&#21336;&#19968;&#25991;&#23383;&#12391;&#12418;&#21487;&#33021;
#&#26032;&#35215;&#12391;&#12503;&#12525;&#12483;&#12488;&#12377;&#12427;&#22580;&#21512;:add&#12458;&#12503;&#12471;&#12519;&#12531;;FALSE
colPoints(x = TestData[, 2], y = TestData[, 3],
          z = TestData[, 4], xlab = "&#12486;&#12473;&#12488;1",
          ylab = "&#12486;&#12473;&#12488;2", zlab = "&#28857;&#25968;",
          pch = "&#9733;", cex = 1.5, legend = TRUE,
          add = FALSE, col = seqPal(yr = TRUE))

#matrix class&#12434;&#12498;&#12540;&#12488;&#12510;&#12483;&#12503;&#12486;&#12540;&#12502;&#12523;&#12391;&#34920;&#31034;:tableColVal&#12467;&#12510;&#12531;&#12489;
#&#12487;&#12540;&#12479;&#20363;&#12434;matrix class&#12395;&#22793;&#25563;
TableMatrix <- as.matrix(TestData[1:10, 2:4])
rownames(TableMatrix) <- TestData[1:10, 1]
#&#12503;&#12525;&#12483;&#12488;
#&#12487;&#12540;&#12479;&#12434;&#25351;&#23450;:mat&#12458;&#12503;&#12471;&#12519;&#12531;
#&#22615;&#33394;&#12434;&#25351;&#23450;:palette&#12458;&#12503;&#12471;&#12519;&#12531;
#&#34892;&#21517;&#12398;&#24133;&#12434;&#25351;&#23450;:nameswidth&#12458;&#12503;&#12471;&#12519;&#12531;
#&#21015;&#21517;&#12398;&#39640;&#12373;&#12434;&#25351;&#23450;:namesheight&#12458;&#12503;&#12471;&#12519;&#12531;
tableColVal(mat = TableMatrix,
            palette = seqPal(yr = TRUE),
            nameswidth = 0.2, namesheight = 0.1)

#&#12464;&#12523;&#12540;&#12503;&#27598;&#12395;&#12487;&#12540;&#12479;&#12434;&#12503;&#12525;&#12483;&#12488;:groupHist&#12467;&#12510;&#12531;&#12489;
#x&#36600;&#12434;&#25351;&#23450;:x&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12464;&#12523;&#12540;&#12503;&#20998;&#12369;&#12398;&#25351;&#27161;&#12434;&#25351;&#23450;:g&#12458;&#12503;&#12471;&#12519;&#12531;
groupHist(df = TestData, main = "Histogrames of Data1", x = "Data1",
          g = "Group", col = seqPal(yr = TRUE))

#&#25991;&#23383;&#21015;&#21069;&#24460;&#12398;&#28961;&#39364;&#12394;&#31354;&#30333;&#12434;&#21066;&#38500;:trimws&#12467;&#12510;&#12531;&#12489;
trimws(c("   &#12363;&#12425;&#12384;&#12395; &#12356;&#12356;&#12418;&#12398;   ", "  I have a PEN   ", "I have an apple    "))
[1] "&#12363;&#12425;&#12384;&#12395; &#12356;&#12356;&#12418;&#12398;" "I have a PEN" "I have an apple" 

#&#25351;&#23450;&#12375;&#12383;&#31684;&#22258;&#12434;&#24046;&#20998;&#12391;&#22823;&#12365;&#12356;&#25968;&#12363;&#12425;&#12487;&#12540;&#12479;&#12434;&#20316;&#25104;:seqR&#12467;&#12510;&#12531;&#12489;
seqR(range = c(50, 1), by = -3)
[1] 50 47 44 41 38 35 32 29 26 23 20 17 14 11  8  5  2