Как написать верхний индекс в заголовке таблицы R?

Question

Я пытаюсь получить верхний индекс в заголовке таблицы. Позже стол будет использоваться в качестве метки для барплота. Поэтому я хочу сократить некоторые названия таблиц и объяснить аббревиатуры позже в легенде графика.

Я использую пример , предоставленный ранее Сати sh

# libraries
library(gridExtra)   # for cool table
library(grid)        # for cool table

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

# Create plotmath superscript strings
df[1,1] = paste0(df[1,1],"^",1)              # i unsuccessfully tried to change the example
colnames(df)[1] <- expression('Title'^2)     # here another unsuccessful try

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

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

grid.newpage()
grid.draw(tg_df)

Это дает мне

Спасибо за вашу помощь.

Answer 1

Пример этого есть в виньетка tableGrob . Просто убедитесь, что разбираете также заголовки столбцов

tt <- ttheme_default(
  core = list(fg_params = list(parse=TRUE)), 
  colhead = list(fg_params = list(parse=TRUE))
)

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

grid.newpage()
grid.draw(tg_df)