将数学表达式放入gridExtra表格列标题中

Question

我想表达如下：

2<= x<3, but if I put c(paste0(2 ," <= x <", 3), the result is the one in image 1, which I don't like.

另一方面，如果我把 c(paste0(2 ," <= x", 3), the expression less or equal, is the correct one. Image 2

代码是这样的：

dataP2 <- data.frame(c("F(x)"),c("0") ,c(0.1), c(0.29), c(0.59),c(0.74), c(0.89), c(1))

colnames (dataP2) <- c( c("X"), c(paste0("x <", 2)),c(paste0(2 ," <= x", 3),c(4),c(5),c(6),c(7),  c(paste0("x >=",7))))

tt <- ttheme_default(colhead=list(fg_params = list(parse=TRUE)))

grid.table(dataP2, rows = NULL, theme=tt)

我必须输入什么才能使表达式变成这样？图3

Answer 1

要将公式添加到图 3 中的列名称中，您可以使用常规引号，而不使用粘贴功能。例如：

dataP2 <- data.frame(c("F(x)"), 0 , 0.21, 0.29, 0.59, 0.74, 0.89, 1)
colnames(dataP2) <- c('X', 'x<2', '2≤x<3', '4','5','6','7','x≥7')
gridExtra::grid.table(dataP2, rows = NULL)

然后要访问这些列，因为它们包含非标准字符，您需要将名称用反引号括起来，例如：

dataP2$`2≤x<3`