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

Question

如何在table中添加*或#作为数学表达式？我问解决方案是通过在 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)

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

add * or # as superscript in table using tableGrob

r

gridextra