如何将QCA_min对象转为可展示表格并还原充分性语句公式？

1. 提取QCA_min对象的核心数据 #

QCA包的QCA_min对象中，$solution字段存储了最终简约解的核心信息（包括一致性、覆盖度），行名对应的就是逻辑公式。我们可以先将其转换为数据框，再还原所需的公式语句：

# 提取解的核心数据并转为数据框
solution_df <- as.data.frame(pLCn$solution)

# 还原等价式公式（如示例中的M1: ~DEV + ~STB <-> ~SURV）
solution_df$formula <- paste0("M", seq(nrow(solution_df)), ": ", rownames(solution_df), " <-> ~SURV")

# 若需要拆分出单个充分性语句（将析取式拆分为独立充分条件）
split_formulas <- strsplit(rownames(solution_df), " \\+ ")
solution_expanded <- data.frame(
  模型 = rep(paste0("M", seq(nrow(solution_df))), sapply(split_formulas, length)),
  充分性语句 = unlist(lapply(split_formulas, function(x) paste0(x, " → ~SURV"))),
  一致性 = rep(solution_df$consistency, sapply(split_formulas, length)),
  覆盖度 = rep(solution_df$coverage, sapply(split_formulas, length))
)

2. 转换为flextable并格式化 #

使用flextable包将处理好的数据框转换为可展示的表格，同时优化格式：

library(flextable)

# 生成含等价式公式的表格
ft_equivalence <- flextable(solution_df[, c("formula", "consistency", "coverage")]) %>%
  set_header_labels(
    formula = "逻辑公式",
    consistency = "一致性",
    coverage = "覆盖度"
  ) %>%
  autofit() %>%
  bold(part = "header")

# 生成含拆分后充分性语句的表格（按需选择）
ft_sufficiency <- flextable(solution_expanded) %>%
  set_header_labels(
    模型 = "模型编号",
    充分性语句 = "充分性逻辑",
    一致性 = "一致性",
    覆盖度 = "覆盖度"
  ) %>%
  autofit() %>%
  bold(part = "header")

# 查看表格
ft_equivalence
ft_sufficiency

3. 扩展：转换真值表为flextable #

如果需要将truthTable()生成的ttLCn对象也转为可展示表格，直接转换为数据框即可：

tt_df <- as.data.frame(ttLCn)
ft_truthtable <- flextable(tt_df) %>%
  autofit() %>%
  bold(part = "header")

关键说明 #

• QCA_min对象的$solution是核心数据来源，行名直接对应逻辑表达式，无需额外解析
• 拆分析取式时，通过strsplit分割+符号，即可得到单个充分条件语句
• flextable支持自定义列名、自动适配宽度，可直接输出到报告或导出为Word/PDF格式

内容的提问来源于stack exchange，提问作者12666727b9