如何在gridExtra表格列头正确显示2≤x<3这类数学表达式？

要在gridExtra生成的表格列头显示2≤x<3这类复合数学表达式，核心是遵循plotmath语法规则（parse=TRUE依赖该语法解析），同时修正原代码中的两处错误：

问题根源 #

1. 原代码中paste0(2 ," <= x", 3)漏写了<符号，导致表达式不完整；
2. 列名赋值时的括号嵌套错误，造成列名数量与数据列数不匹配。

修正后的代码 #

library(gridExtra)

# 构造数据，避免单元素向量嵌套的写法
dataP2 <- data.frame(
  "X" = "F(x)",
  "x < 2" = "0",
  "2 <= x < 3" = 0.1,
  "4" = 0.29,
  "5" = 0.59,
  "6" = 0.74,
  "7" = 0.89,
  "x >= 7" = 1,
  stringsAsFactors = FALSE
)

# 启用plotmath解析的主题
tt <- ttheme_default(colhead = list(fg_params = list(parse = TRUE)))

# 生成表格
grid.table(dataP2, rows = NULL, theme = tt)

关键说明 #

• plotmath支持直接解析2 <= x < 3这类复合不等式，无需额外拼接技巧；
• 直接在构造data.frame时指定符合规则的列名，比后续修改colnames更清晰；
• 必须保证列名数量与数据列数完全匹配，避免因语法错误导致的列名混乱。

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