使用tableGrob在表中添加上标

如何在表格中添加上标？例如，

df

的

b

列将重复索引指示为上标

我可以考虑将列

b

的值作为表达式引入，但可能有更好的方法

数据：

df <- data.frame( a = 1:6, b = rep( letters[1:3], each = 2 ) )

library( 'gridExtra' )
library( 'grid' )
tg_df <- tableGrob( d = df )
grid.draw( tg_df )

---

df您可以通过创建适当的上标字符串并在主题语句中指定
parse=TRUE
来解析表grob中的plotmath表达式。有关更多详细信息和示例，请参见

# Create plotmath superscript strings
df$b = paste0(df$b,"^",rep(1:2,3))

# Define theme to parse plotmath expressions
tt = ttheme_default(core=list(fg_params=list(parse=TRUE)))

tg_df <- tableGrob(d = df, theme=tt)
grid.draw(tg_df)

#创建plotmath上标字符串
df$b=paste0（df$b，“^”，代表（1:2,3））
#定义主题以解析plotmath表达式
tt=ttheme\u默认值（核心=列表（fg\u参数=列表（parse=TRUE）））
tg_-df