如何创建有关机器学习模型的报告表？

Question

我在下面显示的模型中应用了随机森林，我想创建一个包含分类率的报告表，该分类率按PERCENTAGE和DIETS进行分层。

我已经尝试了table1包中的table1函数，它给了我想要的形式，但是里面的数据是简单的描述性数据。

df <- data.frame(model = c("R ~ I + A + S", 
                          "R ~ log(I) + A + S", 
                          "R ~ exp(I) + A + S" ), 
                 PERCENTAGE = factor(rep(c(0, 1), each = 6)), 
                 DIETS = factor(rep(c("High Protein", "Low Protein"), each = 
                                      3)),
                 CR = runif(12), stringsAsFactors = FALSE)

table1::table1(~model|DIETS * PERCENTAGE, data = df) #correct format, but incorrect data :(

是否有一种方法可以获取与table1函数相同的格式，但是其中包含CR（分类率）数据？

Answer 1

一个大概的解决方案可能是库kableExtra，请参见以下部分的分组的列/行：

http://haozhu233.github.io/kableExtra/awesome_table_in_html.html#grouped_columns__rows

使用RStudio中的查看器选项卡查看输出。