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

Question

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

数据：

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)