如何在表格中添加上标?例如,b
的 df
列会将重复索引指示为上标。
我可以考虑将列 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 )
输出:
预期:
最佳答案
您可以通过创建适当的 plotmath 上标字符串并在主题语句中指定 parse=TRUE
以解析表 grob 中的 plotmath 表达式来完成此操作。有关其他详细信息和示例,请参阅 the vignette。
# 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)
关于r - 使用 tableGrob 在表中添加上标,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/43714570/