Rで解析：データ特性を丸ごと確認！「tabplot」パッケージ

データを丸ごとグラフで表現してくれる「tabplot」パッケージを紹介します。量的データだけでなく質的データも対応しています。また、出力されるグラフにはデータ数やラベルも表示されます。非常に便利なパッケージです。

データをグラフで表現するのは労力のかかる作業です。しかし、記述統計では見落としがちなデータの特性が浮かび上がることもあるので重要な作業です。データ解析の第一歩は記述統計ならびにグラフによる確認です。

パッケージのバージョンは1.4.1。実行コマンドはwindows 11のR version 4.1.2で確認しています。

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
if(!require("devtools", quietly = TRUE)){
  install.packages("devtools");require("devtools")
}
install_github("mtennekes/tabplot")

実行コマンド

詳細はコマンド、パッケージヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("tabplot")
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
set.seed(1234)
n <- 10000
TestData1 <- tibble(Data1 = sample(1:5, n, replace = TRUE),
                    Group = sample(c(paste0("Group", 1:5), NA), n, replace = TRUE),
                    Text = sample(c(LETTERS[10:24], NA), n, replace = TRUE),
                    Data2 = runif(n), Data3 = 1:n, Data4 = rnorm(n))
TestData2 <- tibble(Data1 = sample(1:5, n, replace = TRUE),
                    Group = sample(c(paste0("Group", 1:5), NA), n, replace = TRUE),
                    Text = sample(c(LETTERS[10:24], NA), n, replace = TRUE),
                    Data2 = runif(n), Data3 = 1:n, Data4 = rnorm(n))
########

#&#12487;&#12540;&#12479;&#12398;&#34920;&#31034;:tableplot&#12467;&#12510;&#12531;&#12489;
#&#19968;&#30058;&#21021;&#12417;&#12398;&#12487;&#12540;&#12479;&#12398;&#38477;&#38918;&#12391;&#34920;&#31034;&#12373;&#12428;&#12414;&#12377;
tableplot(TestData1)

#&#34920;&#31034;&#12377;&#12427;&#12487;&#12540;&#12479;&#12434;&#36984;&#25246;:select&#12458;&#12503;&#12471;&#12519;&#12531;
tableplot(TestData1, select = c(Data1, Text, Data3))

#&#34920;&#31034;&#12377;&#12427;&#12487;&#12540;&#12479;&#12434;&#27083;&#25104;&#21106;&#21512;&#12391;&#25351;&#23450;:from,to&#12458;&#12503;&#12471;&#12519;&#12531;
tableplot(TestData1, from = 10, to = 20)

#&#34920;&#31034;&#12377;&#12427;&#12487;&#12540;&#12479;&#12434;&#26465;&#20214;&#12391;&#36984;&#25246;:subset&#12458;&#12503;&#12471;&#12519;&#12531;
#or&#12399;|,and&#12399;&&#12391;&#25351;&#23450;
tableplot(TestData1, subset = Text == c("K", "P") & Group == "Group3")

#2&#12388;&#12398;&#12487;&#12540;&#12479;&#12398;&#36949;&#12356;&#12434;&#27604;&#36611;
Tp1 <- tableplot(TestData1, plot = FALSE)
Tp2 <- tableplot(TestData2, plot = FALSE)
plot(Tp1 - Tp2)

#&#12503;&#12525;&#12483;&#12488;&#33394;&#12434;&#22793;&#26356;:numPals,pals&#12458;&#12503;&#12471;&#12519;&#12531;
#&#12497;&#12483;&#12465;&#12540;&#12472;&#20184;&#23646;&#12398;&#12459;&#12521;&#12540;&#12497;&#12524;&#12483;&#12488;&#12434;&#20351;&#29992;&#12375;&#12414;&#12377;
#numPals:&#37327;&#30340;&#12487;&#12540;&#12479;&#12398;&#33394;
#palse:&#36074;&#30340;&#12487;&#12540;&#12479;&#12398;&#33394;,list&#12391;&#25351;&#23450;&#12375;&#12414;&#12377;
tableplot(TestData1, numPals = "PRGn", pals = list(Group = "Set8", Text = "Set6"))

#&#12497;&#12483;&#12465;&#12540;&#12472;&#20184;&#23646;&#12398;&#12459;&#12521;&#12540;&#12497;&#12524;&#12483;&#12488;
tablePalettes()