からだにいいもの Rで解析：コンソールで表を表示「tabstats」パッケージの紹介
データの概要や基本統計量をコンソール上で表示するのに便利なパッケージの紹介です。出力位置や文字色などの変更が可能なだけでなく、標準出力にはない見やすい表の出力が可能です。
パッケージバージョンは0.2.1。Windows 11 x64 (build 26200)のR version 4.6.1で確認しています。
＜おすすめのRに関する書籍です＞
Rグラフィックスクックブック 第2版 ―ggplot2によるグラフ作成のレシピ集 | Winston Chang, 石井弓美子, 河内崇
ggplot2でのグラフ作成をレシピ形式でまとめた一冊。この図をどう描くか、という引き方ができる。
パッケージのインストール
下記コマンドを実行してください。
# パッケージのインストール
install.packages("tabstats")
# パッケージの読み込み
library("tabstats")スポンサーリンク
コマンド例
詳細はコメント、パッケージのヘルプを確認してください。
データフレームをコンソールに表示：table_summaryコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| data | 二列のデータフレーム | |
| title | 表題を指定する文字列 | NULL |
| l | 行数を指定する整数 | NULL |
| header | ヘッダー表示の有無を指定する論理値 | FALSE |
| center_table | 表の中心揃えを指定する論理値 | FALSE |
| border_char | 境界線に使用する文字 | “-“ |
| style | 表要素のスタイリングを制御するANSI形式のリスト | list() |
| align | 列値の揃え方を指定する | NULL |
# サンプルデータを作成
df <- data.frame(
Category = c("A", "B", "C", "D", "E"),
Value = c(10, 20, 30, 40, 50))
# タイトルとヘッダーを付けて表示
table_summary(df, title = "Sample Table", header = TRUE)
# 2行目で分割し、中央揃えで表示
table_summary(df, l = 2, center_table = TRUE)
# スタイルと揃え方を指定して表示
table_summary(
df, header = TRUE,
style = list(
left_col = "blue_bold",
right_col = "red",
title = "green",
border_text = "yellow"),
align = c("center", "right"))
実行結果：
> # タイトルとヘッダーを付けて表示
> table_summary(df, title = "Sample Table", header = TRUE)
Sample Table
---------------------
Category Value
---------------------
A 10
B 20
C 30
D 40
E 50
---------------------相関行列の表示仕様を定義する：new_pairwise_dataコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| var1 | ペアごとの第一変数名 | |
| var2 | ペアごとの第二変数名 | |
| … | rho・pvalなど、セル内に表示する追加の名前付き文字列ベクトル（var1・var2と同じ長さ） |
# ペアワイズ表示用の仕様オブジェクトを作成
new_pairwise_data(
var1 = c("a", "a", "b"),
var2 = c("b", "c", "c"),
rho = c("0.89", "0.79", "0.66"),
pval = c("<0.001", "<0.001", "<0.001"))実行結果：
$var1
[1] "a" "a" "b"
$var2
[1] "b" "c" "c"
$extras
$extras$rho
[1] "0.89" "0.79" "0.66"
$extras$pval
[1] "<0.001" "<0.001" "<0.001"
$pattern
[1] "lt"
$vars
[1] "a" "b" "c"
attr(,"class")
[1] "pairwise_spec"表のスタイルを指定：sm_styleコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| left_col | 左列のスタイルを指定する | NULL |
| right_col | 右列のスタイル指定 | NULL |
| border_text | 水平の境界線のスタイル | NULL |
| title | タイトルテキストのスタイル | NULL |
| sep | 列区切り文字 | NULL |
# スタイルの設定
sm_style(left_col = "blue_bold", right_col = "green", title = "bold")
# 左列と右列を指定し、区切り文字を設定
sm_style(left_col = \(x) cli::col_red(x), sep = "|")
＜おすすめのRに関する書籍です＞
R言語ではじめるプログラミングとデータ分析 | 馬場 真哉
Rの文法から始めて、データ分析の基礎までひとつながりで学べる入門書。
クロス集計表を表示：cross_tableコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| data | 観測頻度の行列や表 | |
| percentage | 表示する割合の種類を指定（TRUE/”all”、”by_row”、”by_col”、”by_total”、FALSE/NULLのいずれか） | NULL |
| layout | レイアウトの凡例ボックスを表示するか | TRUE |
| expected | 期待頻度を表示するか | TRUE |
| layout_center | レイアウトボックスを中央に配置するか | FALSE |
| header_underline | 列ヘッダーの下線を短くするか | FALSE |
| digits | 小数点以下の桁数を指定する名前付きリスト（ex・row_pct・col_pct・total_pctを指定可能） | NULL |
| center_table | 表全体をターミナルにセンターするか | FALSE |
| style | ct_style()で作成したスタイルのリストを指定 | NULL |
# 標準設定でクロス集計表を表示
cross_table(matrix(c(10, 20, 30, 40), nrow = 2))
# 全体に対する割合を表示
cross_table(matrix(c(10, 20, 30, 40), nrow = 2), percentage = "all")実行結果：
> # 標準設定でクロス集計表を表示
> cross_table(matrix(c(10, 20, 30, 40), nrow = 2))
┌──────────────────────────────────┐
| Layout for Cont. Table |
├──────────────────────────────────┤
| < Freq > (< Expected Value >) |
└──────────────────────────────────┘
Cross Tabulation: x by y
─────────────────────────────────────
y
─────────────────────────────────────
x Col1 Col2 TOTAL
─────────────────────────────────────
Row1 10 (12) 30 (28) 40
Row2 20 (18) 40 (42) 60
─────────────────────────────────────
TOTAL 30 70 100
─────────────────────────────────────
> # 全体に対する割合を表示
> cross_table(matrix(c(10, 20, 30, 40), nrow = 2), percentage = "all")
┌──────────────────────────────────┐
| Layout for Cont. Table |
├──────────────────────────────────┤
| < Freq > (< Expected Value >) |
| < % by total row > |
| < % by total column > |
| < % by grand total > |
└──────────────────────────────────┘
Cross Tabulation: x by y
─────────────────────────────────────
y
─────────────────────────────────────
x Col1 Col2 TOTAL
─────────────────────────────────────
Row1 10 (12) 30 (28) 40
25% 75% 40%
33% 43%
10% 30%
Row2 20 (18) 40 (42) 60
33% 67% 60%
67% 57%
20% 40%
─────────────────────────────────────
TOTAL 30 70 100
30% 70%
─────────────────────────────────────
クロス集計表のスタイルを指定する：ct_styleコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| observed | 観測頻度のセルスタイル | NULL |
| expected | 期待頻度の値スタイル | NULL |
| row_percentage | 行パーセントの値スタイル | NULL |
| col_percentage | 列の割合値の形式 | NULL |
| total_percentage | 総計の割合値の形式 | NULL |
| total | 合計行・列のセル | NULL |
| title | 表のタイトル | NULL |
| border_text | 水平の境界線のスタイル | NULL |
# cross_tableコマンドのstyleオプションに各要素の色とタイトルのスタイルを指定
# 標準設定でクロス集計表を表示
cross_table(matrix(c(10, 20, 30, 40), nrow = 2),
style = ct_style(observed = "blue", expected = "yellow", title = "bold"))ペアワイズ行列をコンソールに表示する：pairwise_matrixコマンド
| オプション | 意味 | 初期値 |
|---|---|---|
| display | 対称行列かpairwise_specオブジェクトを指定 | |
| title | 表上部に表示するラベル。自動検出可能 | NULL |
| name | レイアウトレジェンドボックスヘッダー用の短い名前 | “Pairwise Matrix” |
| diag_1 | 対角線セルは常に「1」を表示するか | TRUE |
| digits | 小数点以下の桁数 | 3 |
| layout_view | 表上にレイアウトレジェンドボックスを表示するか | FALSE |
| layout_center | 画面中央に配置するか | FALSE |
| center_table | ターミナルで表を中央に配置するか | FALSE |
| border_char | 区切り文字 | getOption(“tab_default”)$border_char |
| style | スタイルのリスト | list() |
# 通常の相関行列から表示
pairwise_matrix(cor(mtcars[, 1:4]), title = "Pearson Correlation Matrix")
# ペアワイズ仕様オブジェクトを作成
spec <- new_pairwise_data(
var1 = c("a", "a", "b"),
var2 = c("b", "c", "c"),
rho = c("0.89", "0.79", "0.66"),
pval = c("<0.001", "<0.001", "<0.001"))
# レイアウトの凡例ボックスを表示して出力
pairwise_matrix(spec, title = "Pearson Correlation Matrix", layout_view = TRUE)実行結果：
> # 通常の相関行列から表示
> pairwise_matrix(cor(mtcars[, 1:4]), title = "Pearson Correlation Matrix")
Pearson Correlation Matrix
────────────────────────────────────────────────
Variable mpg cyl disp hp
────────────────────────────────────────────────
mpg 1 -0.852 -0.848 -0.776
────────────────────────────────────────────────
cyl -0.852 1 0.902 0.832
────────────────────────────────────────────────
disp -0.848 0.902 1 0.791
────────────────────────────────────────────────
hp -0.776 0.832 0.791 1
────────────────────────────────────────────────
＜おすすめのRに関する書籍です＞
改訂版 平均・分散から始める一般化線形モデル入門 ―Rで学ぶデータ解析の理論と実装―
平均と分散という基本から一般化線形モデルまでを段階的につなぐ入門書。数式に苦手意識がある人でも追いやすい。
www.amazon.co.jp
この記事が誰かの役に立ちますように。
スポンサーリンク
