将ftable因子导出到html

install.packages("htmlTable")
install.packages("knitr")

library(htmlTable)
library(knitr)

# 创建一个示例数据集
data <- data.frame(Gender = c("Male", "Female", "Male", "Female"),
                   Age = c("Young", "Young", "Old", "Old"),
                   Count = c(10, 20, 30, 40))

# 将数据转换为因子
data$Gender <- as.factor(data$Gender)
data$Age <- as.factor(data$Age)

# 创建ftable对象
ftable_data <- ftable(data)

html_table <- htmlTable(ftable_data)

print(html_table)

# 保存为HTML文件
save_html(html_table, "ftable.html")