Create Table Zeroを作った話

tableone package の便利な関数 create_table_oneの引数を指定するShiny appを作った話

yakitoriR #4でお話しました

Transcript

1. Create Table Zeroを作った話 Yukihiro Yamaguchi Yakitori.R #4
2. 自 己 紹 介 2 山口 征啓（ゆきひろ） • 北九州市在住 医療系コンサルタント • 九州大学医療経営・管理学修士課程 • NobData ChatGPT部 • R, GAS, Python • Fukuoka.R 2回目の参加です ID_HelpDesk yukihiroyamaguchi569
3. 皆さん、tableone package使ってますか？
4. 使っていませんね 私のほうからは以上です。
5. Table Oneとは？ 研究において対象の背景をまとめた表 だいたい最初に来るので表１になる 通称 Table One
6. tableone packageとは 一つのコマンドで表１を作ってくれる Rのpackage CreateTableOne()で一発作成できる tableone2 <- CreateTableOne(vars = c( "Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width" ), factorVars = c( "Petal.Width" ), strata = "Species", test = TRUE , data = iris ) CRAN
8. CreateTableOneの引数指定 tableone　 <- CreateTableOne( vars = 連続変数, factorVars = カテゴリー変数, strata = 層別化, test = 検定の有無 , data = データ 　)
9. CreateTableOneの引数指定 tableone2 <- CreateTableOne( vars = c( "Sepal.Length","Sepal.Width", "Pet al.Length", "Petal.Width" ), factorVars = c( "Species" ), strata = "Species", test = TRUE , data = iris )
10. 変数が多くなると引数の指定が面倒 引数に全ての変数を指定し、さらにファク ター変数を指定する必要がある CreateTableOneの引数では、各変数を 文字列で指定する必要があり、入力サ ポートが使えない。間違いやすい table_one_com <- tableone::CreateTableOne(vars = c('charlson_1','charlson_2','charlson_3','charl son_4','charlson_5','charlson_6','charlson_7',' charlson_8','charlson_9','charlson_10','charls on_11','charlson_12','charlson_13','charlson_ 14','charlson_15','charlson_16','charlson_17'), factorVars = c('charlson_1','charlson_2','charlson_3','charl son_4','charlson_5','charlson_6','charlson_7',' charlson_8','charlson_9','charlson_10','charls on_11','charlson_12','charlson_13','charlson_ 14','charlson_15','charlson_16','charlson_17'), data = final_data, test = FALSE, smd = FALSE)
11. Shinyを使って、マウスで指定出来るように！
14. 実演
15. 今後の課題 変数の型を判定して表示したい チェックボックスを全て選択するボタンをつけたい →いずれもfluid Pageでは機能がない
16. いつかプルリクしたい
17. Enjoy!! tableone packageをお使いの皆様、是非お試しください。 https://github.com/yukihiroyamaguchi569/CreateTableZero これからもよろしくお願いいたします。