使用tableGrob在表中添加*或＃作为上标

Question

如何在表格中添加*或#作为数学表达式？我通过在parse = TRUE参数中设置theme，向similar question询问了解决方案的位置。但是，当我使用*或#等特殊字符时，它不起作用。

数据：

df <- data.frame( a = 1:6, b = rep( letters[1:3], each = 2 ) )
df$b <- paste0(df$b,"^",rep(c('*', '#'), 3))

代码：

library( 'gridExtra' )
library( 'grid' )
tt <- ttheme_default(core=list(fg_params=list(parse=TRUE)))
tg_df <- tableGrob(d = df, theme=tt)
grid.draw(tg_df)

输出：

预期：

Answer 1

你应引用这些字符：

library( 'gridExtra' )
library( 'grid' )

df <- data.frame( a = 1:6, b = rep( letters[1:3], each = 2 ) )
df$b <- paste0(df$b,"^","'", rep(c('*', '#'), 3), "'")


tt <- ttheme_default(core=list(fg_params=list(parse=TRUE)))
tg_df <- tableGrob(d = df, theme=tt)
grid.draw(tg_df)