R:クロス集計の関数化と「合計」の行・列
引用元
crosstable <- function(data, xname, yname, format = "html", xlabel = xname, ylabel = yname, caption = NULL){ library(stringr) library(tidyr) library(knitr) library(kableExtra) # 0. もし入力されたデータが数値型なら文字列型にしてから扱う if(is.numeric(data[[xname]